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1.0 PROGRAM DESCRIPTION GUIDE 


A. IDENTIFICATION 
Program Name 

Programmers Name 
Technical Contact 
Date of Issue 

B. GENERAL DESCRIPTION 

The basic composition of the data analysis system is a special purpose data 
base in conjunction with online graphics output, and online and batch statistical anal- 
ysis programs. The data base structure which was developed as a part of this 
analysis system is designed to make maximum use of inherent logical relationships 
within the data. For this reason it was found that generalized data base systems 
were not as efficient as a system designed specially for the Skylab medical experi- 
ments data. The four medical experiments included were: bicycle ergometry (M171), 
lower body negative pressure (M092), endocrine- metabolic studies (M073), and hema- 
tolody and immunology (MllO). Also included were the clinical and environmental 
(CERV) data. The data base was designed to retrieve a basic unit of these data defined 
by the flight, experiment, measurement, crewmember, and flight phase (i. e. , prefUght, 
inflight, or postflight). By using imits of data defined in such a manner, comparisons 
can be made between different flight phases of the same measured variable and a maxi- 
mum number of comparisons can be made between variables of the same or different 
experiments, between flights, and between subjects. It is significant to note that many 
of these capabilities have never been available in any automated system for these data. 
Each Skylab data element in this structure is associated with the time at which the 
measurement of sample was taken. The day of the year, reference 1973, gives a 
unique temporal coordinate for each variable to be used in the graphics display output. 
Also, time is an important parameter to be used as an input to some analysis programs. 

The analysis algorithms which have been incorporated into the present system 
consist primarily of general purpose programs to be used for screening large portions 
of the data. It is recognized that the number of analyses which could be applied con- 
stitute a very large collection. For this reason, the data analysis system is struc- 
tured such that analysis programs from two large statistical packages may 
be added whenever the need for more explicit statistical analysis is determined. The 
programs which are presently included in the Skylab Integrated Medical Data Analysis 
^stem can compute means, standard deviations, and t-tests for each basic unit of data. 
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The comparison of means between data is accomplished .with a paired t-test. In 
order to assist in hypothesis development and testing, a set of regression functions 
has been employed, also. These functions displayed on a graphics CRT use least 
squares criterion to fit linear and nonlinear equations to the data plots. Data can 
be plotted against time or another variable as the independent variable. This cross 
plotting capability can readily detect relationships between various measurements 
taken at corresponding times. The regression fitting capability allows the user to 
mathematically verify those relationships visually identified. By using a combination 
of these regression analyses and graphic CRT 'displays, statistical regression models 
of a measured variable can be applied to the total flight duration for all flights and 
all subjects. 

C. USAGE AND RESTRICTIONS 
Machine, Operating System, and 

Compiler Required - Uni vac 1110, EXECS, FORTRAN V 

Peripheral Equipment Required - Tektronics 4010-1 Graphics Terminal 

and Hardcopy Device 

Approximate Memory Required - 20000^^ 

D. PARTICULAR DESCRIPTION 

Equations used - see Reference 1 
Definition of Terms - See Reference 2 

E. DESCRIPTION OF INPUT 


The Skylab Integrated Medical Data Analysis System (SIMDAS) has been imple- 
mented on the NASA/jSC Univac 1110 computer and can be operated in the demand or 
batch mode. The Instructions given are for the demand mode only since the batch mode 
requires the same instructions submitted in card form. The following procedure is 
required to establish connection for a remote terminal: 


SET TERMINAL ON LINE, TO EVEN PARITY, AND 30 CPS 

DIAL 483-4881; ASK FOR HIGH SPEED LINE TO 1110 
(LOW SPEED OPERATES AT 10 CPS) 

ANSWER OPERATOR QUESTIONS 

SET PHONE IN MODEM AND TYPE SITE ID WITH NO CR. 
RESPOND CR TO REQUEST FOR PASSWORD 
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EXAMPLE RUN CARD 

@RUN, /N DBHQLD, 7007-Q509-C , DB6-G03432 , 10 

TO DELETE TYPED CHARACTERS USE CTRL Z 
FOR EACH BAD CHARACTER AND RETYPE 

TO DELETE A COMPLETE LINE USE CTRL X 

I/O TERMINATION: 

HIT BREAK KEY DURING OUTPUT, RESPOND @@X TIO, CR 
WAIT FOR PRINT BUFFER TO EMPTY 

In order to use the SIMDAS the following system instructions are required: 

©COPY SMEpEP. , TPF$. 

When control is again restored, the user must specify any flight or model data he 
wishes to use. 

@ASG,A SL2. 

©USE 10,SL2. 

@ASG,A SL3. 

©USE 11,SL3. 

©ASG,A SL4. 

©USE 12,SL4. 

©ADD TGF 

©ASG,A Unit No, 

Where, 

Unit No. = 13 for Guyton's Model 
14 for Red Cell Model 

Other model or experimental data may be added on additional unit numbers, however, 
units 16 and 18 are dynamically assigned by SIMDAS for output from the BUIL function. 
The assigning of existing data files is only possible as long as present file space is 
maintained. The appropriate section of following procedure needs to be followed 
ONLY WHEN A SKYLAB FILE MUST BE BUILT FROM TAPE. 


I For Skylab 2 
■ For Skylab 3 

■ 

• For Sfylab 4 

Assigns SL2. , SL3. , and SL4. automatically 
For Model Data 
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@ASG,UP SL2 
@USE 10,SL2. 

@ASG, T 7. , 8C, Tape No. 

@ASG,UP SL3. 

@USE 1,SL3. 

@ASG,T 8. , 8C, Tape No. 

@ASG,UP SL4. 

@USE 12,SL4. 

@A^G, T 9. , 8C. Tape No. 

@XQT SLFILE 

The user must then answer the questions asked by the program about which flight is 
desired. 

Now that the system is loaded and the data files assigned, the user should begin execu- 
tion by entering the following command. 

@XQT MAPEL 

Answer 'TYPE SHIFT-OUT' with a CR 

Answer 'WANT HARD COPY QUESTION DURING PRINTOUT? (Y,N)' 

The hard copy question provides a page division for tabular output, however, a nega- 
tive (N) response will suppress this during output. 

Answer 'DO YOU WISH TO BIAS ALL DATA BASE TIMES BY LAUNCH 
DATES? (Y,N)' 

This allows the user to set launch dates to zero for the prime purpose of comparing 
data from one mission with data of another mission. 

The command request appears as shown in Figure 1. Each of these commands will 
be explained in detail because they comprise the fundamental set of tools available to 
the system user. 

>S>Ki?T MRPEL 

I 

t 

T‘i‘PE SHIFT-OUT ■S0> flNIi RETURN — > 

I 

J 

WANT HARD COPY UUESTIOH DUPING PRIM TOUT? CYjN> 

DO YOU WISH TO BIAS ALL DATA EASE TIMES BY LAUNCH DATES? <YjM) 

>N 

COMMAND <FETC 5 SCRC s LOOK j DATA j PLOT j BU I L > HPLO s MDDV » STDP> A4 » 1 X 5 9 <. A6 > 1 X;> 
COMM IDEM IIEN IDEM IDEM IDEM 
.>FETC 


I For Skylab 2 
I For Skylab 3 


For Skylab 4 


Figure 1 Command Request 
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FETC 

The FETC command is required first in order to read the data files and place the 
data of interest into the working area of the system. The instructions given for 
this command appear as shown in Figure 2. 


DD YOU UISH IHSTPUCTI0H5?>:Yj N> 
>Y 


■■IHEH-1-6 CHRRS.TO IDEMTIFY DfiTW ' CMD. =1.-360. UNLESS FRPM fi .MDDEL> 
■iDRTfi ERii E=SL£ j SL3 ? SL4 > 6UYT < GROD j LENP » HEAT j > 

IF IiRTfl FROM R MODEL? IGNORE REST OF INPUr 

•: E;=^PER=M 1 7 1 ? M 093 ? M 073 ? M 1 1 0 ? CE VR ? Ei^ER? PRES> 

'^’MRN C=CDriNRNDER ? S=SC I ENCE PILOT?-" P=P I LDT> <PHflSE=PRE ? I N ? POST> 
•iERY=IGNOPE UNLESS FUNCTION EXER DR PREc! ^ 

INPUT GO WHEN FINISHED FETCH^SCRCH INPUT ? HIT CR IF WRNT INSTRUCTION 


IDEM NO. 
>UVOL 1. 
>UVOLR 


DRTfl FUNCTN^ 

ERSE EXPER MRN PHRSE DH‘i^ 

SL3 M073 • , C PRE 

ALL 


">60 


Figure 2 FETC Command 


IDEN is a user defined name to identify the unit of data to be retrieved. This name 
may be made meaningful to the user to aid in remembering the names and to appear 
in documentation of graphics output. All other commands require input from data 
in the working area by specifying the identifying name. 

NO. refers to the measurement number as found in Appendix 1, the data base direc- 
tory, These directory numbers do not apply to data from a model, 

DATA BASE requires input of SL2, SL3, SL4, GUYT, or BUIL which direct the 
retrieval program to the proper data base or model output. 

FUNCTN/EXEE refers to the Skylab experiment number (M17i, M092, M073, MliO, 
CEVR). The functions EXER or PRES are specified for the retrieval of all data from 
one bicycle ergometry experiment or LBNP experiment. 

MAN requires an input of C for commander, S for science pilot, or P for the pilot. 

PHASE requires the input of PRE for the preflight phase, IN for the inflight phase, 
and POST for the postflight phase. ALL will retrieve data for all phases. 

DAY is only required when the EXER or PRES options are used in FUNCTN/EXER. 
Then it refers to the day on which the experiment was run. 
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This completes the required input for retrieving and labeling one unit of data. When 
all required data has been specified, the user must input GO, 

The user Is allowed to combine data When the PETC command as input with a • data 
name (IDEN). The retrieved data will be combined until the user inputs GO. The 
working area of the system will contain the combined data defined by the PETC name 
along with each retrieved name separately defined. An example of output of this com- 
mand is given in Figure 9. 

SCRC 


The working area for data in this program is fixed size. Therefore, when all opera- 
tions are complete on the data in the working area and more data .are required, the 
input of SCRC will clear the working area of its contents and prepare the program to 
receive more data as described under the FETC option. Messages will be printed 
for the user during FETC inputs when the storage capacity of the working area has 
been exceeded. 


LOOK 


This command provides the user a summary of data specified by its identifying name. 
The required location of these names to be input is indicated with the request by 
IDEN. A response of ALL in the place of a data name (IDEN) will produce a 
summary of all data in the working area. The summaries printed supply information 
shown in Figure 3. 


CDMMRNIKFETCj'^CPCyLnDK.rtRTfljpLDTjEUIL.f^PLD-.MbDV'STOFD R4» IJO 

CDPin IDEM IDEri IDEM IDEM IDEM 

■LDOK RLL 
1 



DRTR FUMCTN-" 


. . . START . . 

. . .... STOP .... 


MO. 

IDEM 

HD. BASE EXPER MRM PHASE 

Dfl'i' HR MM 

SE DRY HR MM SE 

DRTR 

UVDL 

1 3L2 

M073 C 

PRE 

115 0 0 

0 143 0 0 0 





.£75+04=HieH 

VRLUE 

710. 

=L0W VRLUE 




1359. 

=MERM 

437. £ 

=MTM.DEV. 

1.7£1735=T RT . 

95 


UVDLR 

1 SLE 

M073 C 

RLL 

115 0 0 

0 137 000 


63 



.£75+04=HieH 

VALUE 

533. 

=LOIri VALUE 




1404. 

=MERN 

416.3 

=STM.DEV. 

1.67£330=T fir . 

95 


UV£ 

- 1 CLS 

-M073 C 

PRE 

115 0 0 

0 143 000 


C-'c' 



.£75+04=HISH 

VRLUE 

710. 

=LQW VALUE 




1359. 

=MERM 

437. £ 

=.STM.DEV. 

1.721735=T RT . 

95 


IJV3 

1 SL3 

M073 C 

PRE 

189 0 0 

0 £07 0 0 0 


17 



.201+04=HIGH 

VALUE 

836 . 

=L0W VRLUE 




1433. 

=MEfiN 

3£S. 0 

=STM. DEV. 

1.7464£6=T RT . 

95 


UV4 

1 SL4 

M073 C 

PRE 

£93 0 0 

0 319 0 0 0 


£7 



. £53+ 04=H I SH 

VRLUE 

. 101 + 

04=LOW VRLUE 




1755. 

=MERM 

47E.E 

=STM.DEV. 

1.707018=T RT . 

95 


UVDLC 

1 SL2 

M073 C 

PRE 

115 0 0 

0 319 0 0 0 


66 



.£7S+04=HIGH 

VRLUE 

710. 

=L0U VALUE 




1540. 

=MERH 

475. 1 

=3TM.DEV. 

1.671736=T Rf . 

95 



Figure 3 LOOK Output 
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DATA 

The DATA command requires the same tj^pe of data specification input under IDEN 
as the LOOK command. The output from this command is identifical to the LOOK 
command with the addition of each point of data printed along with the time when 
the observation was made. An example of output from the DATA command is given 
in Figure 4. 


COriflFlND '^FETC, SCRC< LDDKj DfiTR» PLOT , EUIL» XPLO, M0DV, STDP> fl4 j IXj 9 1X:> 

CDMM IDEM IDEM IDEM IDEM IDEM 
DflTR UriRKM 


IDEM 

UMRKM 


DRTR FUMCTM^- 



... 5 

TART. . 


. • . .STDP. ... MD. 

MO. ERSE e;.<:per MRM 

PHASE 

Dfl'7 

HR MM 

SE 

DRY HR MM SE DATA 

3 SL3 M073 

S 

PPE 

193 

0 0 

0 

£07 0 0 0 13 

304. 

=H IGH 

VALUE 


163. 

= 

LOW VALUE 

E29.5 =MERM 


49 

. 99 

=STM.DEV. 

■ 1 

.789073=1 AT .95 

192.5 

193D 

OH 

ori 

OS 

JULY 

1£ 

1973 

lt.2.3 

194D 

OH 

on 

OS 

JULY 

13 

1973 

£04.6 

195D 

OH 

OM 

OS 

JULY 

14 

1973 

£80.5 

196D 

OH 

on 

OS 

JULY 

15 

1973 

133. 7 

197D 

OH 

on 

OS 

JUL'V 

16 

1973 

£73.9 

198D 

OH 

on 

OS 

JULY 

17 

1973 

£91.5 

199D 

OH 

on 

US 

JULY 

18 

1973 

£37. 1 

£00D 

OH 

on 

o,s 

JULN' 

19 

1973 

185.9 

£01D 

OH 

on 

OS 

JULY 

£0 

1973 

£07.9 

£0£D 

OH 

on 

OS 

JULY 

£1 

1973 

1 87 . 0 

£03D 

OH 

on 

OS 

JULY 

££ 

1973 

303.6 

£06D 

OH 

on 

OS 

JULY 

25 

1973 

£££. £ 

£07D 

OH 

on 

OS 

JULY 

26 

1973 


Figure 

4 

DATA Command 




The DATA command may be used to modify data in the working area of the system. 
A response of MODV under the first IDEN and the data name to be modified under 
the second IDEN will allow the creation of a new and separate data name. The out- 
put from this command is identical to the DATA command with the addition of a 
printout of the day, old value, new value, and new name. An example of output 
from the DATA MODV command is given in Figure 5. 



CDtlMRnn CFETCj SCPC-! LDOKj IifiTfij PLOT? EUiUvXPLDii MODVj STQP> R4s » 9 j IXJ 
CDMM IDEM IDEM IDEH I BEN I DEN 

>iinTn noBv uNflh. 

I 


REQUEST TO MDIUFY DflTR RCCEPTEDp 

ENTER NODIFY FUNCTION CMFUN'J » NEW VRRIRELE NfiME Crfi/fiLN) j 
AND CDNSTRNT ■•.VK.;- 

MFUr^=l. NEW=DLB + VP 
=£j NEW=DLn - VK 


=3< NEW=DLD ♦ VK 

=4- NEW=DLD VK 

=5? NEW= «:OLD-VK) .-'VK ♦ 10 0. CO 

=6, NEW=DLD++£ 

=7j NEW=LN<DLDJ 

=Sj EIR? TIME BY VK CDRYS) 


ai^-R6.'El£.5> 


MJNRKM 

; 1 . 1 


I DEN 

UriflK 


DRTR FUNCTN-' 

. . . i’TRRT . . 

• • 

STOP 

NO. 

NO. ERSE e:=; 

PER MAN 

PHASE DRY HR NN 

SE 

DRY HR MN SE 

DRTR 

3 3L3 NO 

T* 

1 

PRE 189 0 0 

0 

207 000 

15 

0“?c: 

) D ■ 

=HIGH ‘ 

VALUE 148. 

= 

LOW VALUE 


213.2 =NERN 

45.42 =STN.DEV. 

1 

.770815=T AT . 

95 

2721 b+ 06 

275. 00 

302. 5 iJ 


UNRH.N 


275. 0 

189D 

OH ON OS JULY 

8 

1973 


27360+06 

211. 00 

£32 . 1 0 


UNRKN 


211.0 

190D 

OH ON 03 JULY 

9 

1973 


£7792+06 

175. 00 

192.50 


UNRKM 


175. 0 

193D 

OH ON OS JULY 

12 

1973 


£7936+06 

148. 00 

162 . S 0 


LINRKM 


148. 0 

194D 

OH ON OS JULY 

13 

1973 



Figure 5 DATA MODV Commaud 


PLOT 

The PLOT command allows the user to display his data on a graphics CRT terminal. The 
plot capabilities of this system were written for the Tektronix 4010-1 and are set to operate 
on a high speed (30 cps) line. The interactive instructions given by the system are shown in 
Figure 6. 

XMPUT HEADING (15A4) ^ " 

VOL <nu skylao 3 cor 

lOEN.SAttE^CO) (L>j:.-6. FOR LOC.) 

<P.l.>STAia PLT 1ST.PT«H0R12>2.>STA!R 2ND . PT . H0RI2# 

3.a«0 LIHES*0R PT.TO PT.PIT.) 

(X»t.FOR X SYMBOL AT EACH POINT) 

(START/STOP LEFT BLANK MEANS PLOT ALL TIME OF BATA) 

X AXIS (TIME) 

Y AXIS** *.**START STOP BIAS 

IDEM HICH LOU L P X BAY HR MN SE BAY HR MN SE DAY HR HN SC 

>UM0L2 2sag. sag* i. 1. 


Figure 6 PLOT Instructions 
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IDEN is the user defined name as previously defined. There is currently a maximum 
of six variables which can be entered. HIGH and LOW are the limits of the plot to be 
supplied by the user. These can be found in LOOK or DATA (output). These numbers 
are input as real numbers and therefore, a decimal point is required. If IDEN = GO, 
then HIGH must be equal to 3. , 4, , or 5. to set the number of X-axis divisions. 

L is a request for location. The locations are created by dividing the vertical axes 
to separate plots as shown below in Figure 7. 



lao.o m.5 0 202.5 a07.0 

TIME (J3AVS) 

Figure 7 MuLtiplot Example 

The upper plot is in location 1 and the bottom plot is in location 4. ' SIMDAS allows 
a maximum of six locations. 

P is the format option which is also illustrated in Figure 7. The four possible 
choices are: 

blank = point to point plot (Loc. 2) 

1 = stairstep plot with horizontal drawn from leading point (Loc. 1) 

2 = stairstep plot with horizontal drawn from trailing point (Loc. 3) 

3 = no lines (Loc. 4) 

X is an option to mark each data point on the plot with an "X" as shown in all the plots 
of Figure 6. By entering a 1 the X's will be drawn; left blank they will be omitted. 
L, P, and X all must be entered as real numbers. 
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START is the request for the start time of the data to .be plotted. Left blank, the 
first day of data will be used. DAY, HR, MN, SE means day, hour, minute, and 
second. For most data, day is the only input required. 

STOP is a request for the last day of data to be plotted. Left blank, all data past 
the start time is plotted. 

BIAS allows the user to shift the time axis of data to be plotted (e. g. , if -208 is 
entered for Sky lab S inflight data, the first point will be associated with Day 1. ) 
Otherwise data from different flights will be displaced on t X-axis (time). 

BUIL 

The BUIL command allows the user to perform several types of analyses on the data 
and has the option to store appropriate results on a disk file to be retrieved for dis- 
play or input to secondary analyses. The options given the user are shown in Figure 8. 

The first option allows the user to ignore data points for analysis or display purposes. 
The additional instructions given for this option are also shown in Figure 8. 


C DMNflMD '.FETC j SCRC j LODH! > DfiTfl « PLOT * EU I L f XPLO » MODV j STOP? R4 » 1 X j 9 <fl6 « 1 X? 

conn IDEM iriEN idem idem iiiem 

.5-EUIL 

} 

I 

EO YOU WISH INSTRUCT I DNS? 

THIS c'dMMRND allows THE USER TO PERFORM THE 
FDLL0WIM6 FUNCTIOHS UPON THE DRTfl 
1 IGNORE ERTR POINTS 
£ LINEAR REGRESSION 
3 PARABOLIC REGRESSION 
7 TEST OF SIGNIFICANCE BETWEEN MEANS 
9 STOP 


SPECIFY BUILD FUNCTION 

>1 

I 

I 

INPUT IDEN AND UP TO 4 TIMES OF DATA TO IGNORE 
INPUT GO WHEN FINISHED IGNOP INPUT. 

IDEN DRY HR NN SE DAY HR MN SE DRY HR NN SE DAY HR MN SE 

.■'UNRl:.M 193. 194. 195. 196. 

>GO 


•SPECIFY BUILD FUNCTION 
>9 


Figure 8 BUIL Command 
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Where EDEN is the user defined name as previously mentioned, and where the times 
are specified under DAY, HR, MN, SE, only the day of the observation needs to be 
given. 

The options 2 and 3 are the two regression functions which are presently available in 
the SIMDAS system (Reference 2). These functions, shown in Figure 7, 
provide a least-squares approximation to the coefficients of the chosen fimction. 

When one of the regression fpnctions is chosen, the user is given the following query: 
"DO YOU WISH TO USE TIME AS THE INDEPENDENT VAR?". An answer of N 
will be followed by a request for two data IDEN's. The two units of data given must 
have at least two points which were taken on the same day as only points which are 
coincident in time are used in the analysis. 

The tabular output given will be a regression of the two data units utilizing the data 
of first EDEN for the X coordinates. Included in the output are the coefficients of 
the equation of the chosen function, the data points which are used in the regression, 
and the corresponding points in the fitted equation. 

If time is chosen as the independent variable only one variable EDEN is requested. 

The day of measurement is taken as the X-coordinate and the observation as the Y1 
coordinate. Tabular output may be requested and the output of the fitted functions 
is stored on line under a new data IDEN specified by the user. These data in turn 
can be retrieved by the PLOT command and displayed graphically. 

The other currently available option in the BUIL command is to test the difference 
between two means for significance. The only inputs required are the two data 
IDEN's. The method used is the T-test for paired observations which is discussed 
in Reference 2 report. The output of the program is the value calculated using the 
hypothesis that the samples come from the same normal population. The number 
of degrees of freedom are also given as output. 

XPLO 

The XPLO command allows the user to perform one of the two regression analyses 
shown in the BUIL command of Figure 8 and display the results grajiiically on the 
CRT. This same option exists with respect to using time for the independent vari- 
able as found in the BUIL command. Also, the restrictions of using only data 
IDEN's with at least two measurement days in common holds for the XPLO command. 
The plot that is created by using two independent units of data is called a scatter 
diagram. The scatter diagram is a plot which utilizes one variable as the X coor- 
dinate and the other as the Y coordinate. Corresponding points in time are shown 
with an 'X' on the plot and the fitted curve is plotted as a solid line using points 
generated by the regression programs. These plots make relationships between 
measurement or svibjects much more evident to the user. Scale factors are estab- 
lished by the program and correspond to the maximums and minimums of the variables 
used. The number of divisions of the X and Y axes is determined by the program. 
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CDMMflHB^.FETCjSCRC»Ln0KjDaTfi.*'PLQTj-BUrL>j>^PLb>C10DV»ST0P> fl4» 1 'Xj9<R6» 1K> 


com IDEM 

>FETC UVDLO 
1 

IDEM 

IDEH IDEM 

IDEM 

DO YOU 

kUSH 

IMSTRUCTIDHS?<Y»H> 


>YM 


DfiTfi 

FUMCTN/ 


IDEM 

no. 

BfiSE 

EXPER MAN 

PHASE DRY 

>uve 

1. 

SL2 

H073 C 

PRE 

>UV3 


SL3 



>UV4 

>GD 


SL4 



CDMMRND <FETC. 

j SCRC j 

LOOK j DATA* PLOT ■« BUTL j XPLD , MODV » STDP> 

COMM IDEM 

IDEM 

IDEA IDEH 

IDEM 

>FETC 

1 





DO YOU 


IHSTRUCTIONT?<YjH> 




DATA 

FUHCTH/^ 


IDEM 

HD. 

ERSE 

EXPER MAN 

PHASE DA'f‘ 

> UHfl 


SL3 

M073 S 

PRE 

.•U1-. 

4. 





.-SO 

Figure 9 Copabine Function 


fl4» lX»9(fi6j IXJ 


MODV 


The MODV co mm and allows the user to modify one data name in the working area 
of the system by another data name in the working area. The output from this 
command is identical to the DATA command with the addition of a printout of the 
day, old value, new value, and new name. An example of output from the MODV 
command is given in Figure 10. 
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COMMAND <FETC ^ Cfl RC j LOOK? DATA j PLOT > BU I L j XPLD » JgIDD V > STOP> A4 » 1 X j 9 <A6 j 1 X> 
COMM* IDEM IDEM IDEt^ ’ IDEN IDEM 
>MODV 

THIi COMMAND ALLDIdS THE USER TO MODIFY 
iJNE VARIABLE BY ANOTHER VARIABLE 


DO YOU UISH INSTRUCTIONS? (YjN> 
> Y 


ENTER DESIRED MODIFY FUNCTION 
MFUN=1» VAR3=VAR1 + VARS 
=Sj VRR3=VAR1 - VARS 
=3j VAR3=VRR1 * VARS 
=4j VAR3=VAR1 VARS 
=5j VHR3=';VARS-VAR1;'.'VAP1 + 100. 


•1 


PLEASE LIST 

VARl TO EE 

MODIFIED EY 

VARS TO CREATE 

VARS 

VARl VARS 

VAR3 




UNA UK 

UNAP; 




.S7S16+06 

S09. 00 

66 .000 

S75. 00 

UNAK 

. S736 O+OE- 

148. 00 

63. 000 

Sll. 00 

UNAK 

.S779S+06 

117. 00 

58. 000 

175. 00 

UNAK 

. S7936+06 

9S. 000 

56. 000 

148. 00 

UNAK 

.S3 080+ 03 

118.00 

68. 000 

186. 00 

UNAK 

. S8SS4+06 

181. 00 

74. 000 

S55. 00 

UNAK 

. S8368+06 

1S5. 00 

4S. 000 

167. 00 

UNAK 

. S851S+06 

1 S3 . 0 0 

66. 000 

S49. 00 

UNAK 

• S8656+08 

S14. 00 

51 . 0 00* 

S65. 00 

UriAK 

.S8800+06 

168.00 

93. 000 

S61. 00 

UNAK 

. S8844+06 

97. 000 

7S. 000 

169. 00 

UNAK 

. S9088+06 

1S3. 00 

66 . 000 

189. 00 

UNAK 

. S9S3S+ Ob 

111.00 

59. 000 

170. 00 

UNAK 

. S8664+06 

SOS. 00 

70. 000 

S76. 00 

UNAK 

. S980S+0b 

1S9. 00 

73. 000 

SOS. 00 

UNAK 


Figure 10 MODV Command 
F. DESCRIPTION OF OUTPUT 


See Reference 1 for example of SIMDAS output. 
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G. INTERNAL CHECKS AND EXITS 

Input data is checked for validity before processing. IDEN's are checked 
against names in the FETC array. When buffer sizes are exceeded, an 
appropriate message is printed. 

H. INDEPENDENT SUBROUTINES 

All subroutines required by the SIMDAS are listed in Appendix A, the Pro- 
gram Listings. 

I. SYSTEM SUBROUTINES 
System subroutines iBed are: 

SIGDM and STUD 

J. COMPLETION OR FINAL CHECKOUT DATE 


January 2, 1975 


Revised Checkout - November 3, 1975 



APPENDIX A 

SKYLAB INTEGRATED MEDICAL DATA ANALYSIS SYSTEM 

PROGRAM LISTING 



CB6-G03432>«SMEDEP.MAPEL <Q ) 


1 

SEE ^AI^ 


2 

lU SYS$«RLIES. NSTCPS/JSC 


3 

LIB LEC«UR 



LIB FD8-MSC*STATPACK 


5 

IN DIR 


6 

IN AEUF 


7 

IN BBUF 


8 

IN PLOTS 


9 

IN NAMS 


ID 

IN PLTI 


11 

IN TKTRNX • 


12 

SEE RTV*,(FAIN» 


13 

IN RETREV 


14 

SEE 8UIL#,IMAIN> 


15 

IN BLILD 


16 

SEE RE6R*,BUIL 


17 

IN REGRESS 


18 

SEE PLOT#, PEER 


19 

IN PL0T33 


20 

IN PL0T26 


21 

SEG PODV*,BUIL 


22 

IN M0D2V 


23 

END 


SPRT,S 

SMEEEP.DIR (C » 




Cn 



DB6-603‘l32<<SME0EPoDIR(0) 

: CALL RETREV 

2 STOP 

3 ENC 


olPRT,S 


SMEDEP.TIMP (C > 



D86-603432*SHEDEP.TI«P<D) 

1 SUERCLTINE TI H P R T { T , I C 1 , I H 1 ♦ I K 1 , 1 S 1 J 

2 C This ROUTINE CONFUTES TINE?< FOR PRINTCLT, 

3 C INPUT T (TIME I^ MINS.). 

4 C OUTPUT ICl=DAYS,IHl=HCURS,IHlrMINS,ISl=SECS. 

5 TBIAS=0. 

6 TN=T-TEIAS 

7 C WRI1E(6,555JT,TM 

8 C 555 FORMAT** *#>»:«TBIAS CHECK=f«** ♦ ,2F 1C .3 ) 


9 


IF(TM ,GE. 

0.) GO TO 1C 


10 


IDl = (<TM 

- 1439.)/ 1440.) 

11 


XI = TM - 

(IDl * 1440.) 


12 


GO TO 20 



13 

1C 

IDl = TN / 

14t(0. 


14 


XI = TN “ 

(FLCAT(IDl) * 

1440. ) 

15 

20 

IHl = XI / 

60. 


16 


XI XI ' 

(FLCAT(IHl) * 

60. ) 

17 


IMl = XI 



18 


ISl r (XI 

- FLCAT(INl)) 

« 60. 

19 


RETURN 



20 


END 



SPRT ,S 

SMEOEP *PA6E3(0) 





0B6-GQ3432«SM£DEP.PA6E3 <C ) 

1 SUBROUTINE PAGE3 

2 C This ROUTINE ASKS FOR HARO COPY UNTILL N IS ENTERED. 

3 C THE PAGE IS THEN ERRASEC AND CURSOR HCVEC TC FCFE. 

DATA INO/*N ♦/,IYO/»Y •/ 

5 5 CALL GCT0CH(3'<,1) 

6 C 


7 


CALL BELL 

8 


WRITEC £»11 ) 

9 

11 

FCRHATC HARD CCPY WANTEC(Y 

IG 

8 

REA.O (5 ,12,ERRrs J I 

11 

12 

FORMAT (AA) 

12 


IF(I ,EQ. INC) GO TO 25 

13 


IF<I .NE. lYO) GO TO 5 

!*♦ 


CALL HCCOPY 

15 


GO TC 5 

16 

C 


17 

25 

CALL NEWPA6 

18 


RETURN 

19 


END 


SPRT.S SMEDEP. LINES <01 


00 



DB6-G03‘»3 2»SME0EP.LINES (C ) 


1 

2 

7 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 


C 

CC 


SUBROUTINE LINES 

COMMON /PLOTS/ X1(85)»Y(85),X1L«85)»YL(85),YG(85»,YDEV(85), 

* YDS0(E),h(3,3),T(3),S(12),VPEAN(3), 

* A,Al,e,Bl,C,Cl,AH,BH»CM»AN,AM,AN2,SPlFTX,SHlFTY, 

« IEQ,MV»NP ,IERR tISOLVE ,NOTE tiFLNC.EELX ,N,IXXY,IRR,IRI, 

WRITE(6»6789 »IFUNC,N,DELX 


C 

C 

C 

c 

c 

c 

c 

c 

c 


6789 FORMATUH ,2IE,F10.4J 

S16RCUTINE FOR CETERMIMN6 LE A S T- S CL A RE S SCLLTIONS OF 
PARAMETERS FOR LINEAR EQUATIONS OF TFE FORM 


Y = 

WHERE A HAY BE SPECIFIED 


+ {B«XD ♦ (C>>X2» ♦ {D=>X3), 


DETERMINE VALLES FOR COEFFICIENTS 
SOLVED . 

H( 1,1) : AN 
H(l,2> : S(2) 

H(2,2) = S(3> 

H(2,l) = H(l,2) 

T(l) = Sill 
T 12) = St4) 

SOLVE FOR PARAMETERS. 

CALL SOLVES 

IF (lERR .EQ. 1) RETLRN 
A = AH 
b = BH 

COMPUTED VALLES OF Y AND Y RESIDUALS 


OF LINEAR EQUATIONS TO BE 


30 DO 40 I = 
YC (I ) = A 
YOEVtH = 
CONTINUE 
RETURN 
END 


40 


1» N 

+ e>CiXl ( I ) 
Y(l) - YCd ) 


LYES 


5PRT.S 


SMEDEP.PARA(O) 



DB6-603432*SKEDeP.PARA (0 > 


1 

2 

3 

4 

5 

6 

7 

8 
9 


C 

C 

C 

C 


SUBRCUTINE PAPAS 

COMM ON /PLOTS/ X1(85J,Y(85),X1L(85),YL(85),YC<85)»YDEV(85), 

* YDSQ ( E) ,H13,3) ,T( 3) ,S ( 12) ,VME AN (3 ) ♦ 

* A»Al,e,81,CtCl,Af-,BH,CK,AN,AM,AN2»SHFTXtSHIFTY, 

* IEQ,M V,NP,IERR, I SOLVE* NOTE, IFUNC ,CELX,N,IXXY,IRR,IR1, 

SUBROUTINE FOR DETERMININB LE AST^SQU ARES SOLUTIONS Of 
PARAMETERS FOR PARABOLIC EQUATIONS CF THE FORM 

-» (E*X» + ( C>» (X>>#2 ) ) , 


ID 

C 


Y = A 

11 

C 



12 

C 


WHERE A MAY BE SPECIFIED 

13 

C 



14 



H( 1, 1) = AN 

15 



H(l,2) : S(2> 

16 



H(l,3 ) = S(3 ) 

17 



H(2,l) = H(l,2> 

18 



H(2,2) = S<3) 

19 



H(2,3) = Si9) 

20 



H(3,l) : H(1 ,3) 

21 



H(3,2) : H(2, ') 

22 



H(3,3> = S(10) 

23 



T<1) = Stil 

24 



T(2) = St4) 

25 



T(3) = S (11 ) 

26 

C 


SOLVE FOR PARAMETERS. 

27 



CALL SOLVES 

28 



IF (lERR .EQ. 1) RETURN 

29 



A = AH 

30 



B = BH 

31 



C = CH 

32 

C 


COMPUTED VALLES OF Y AND 

33 


3G 

DO 40 1 = 1, N 

34 



YC (I) r A •» (8 * XI (I) ) 

35 



YDEV(I) = Y(I) - YC(I) 

36 


4C 

CCNTINLE 

37 



RETURN 

38 



END 


Y RESIDUALS 

•» <C * (XI (I) « XKl))) 


JYES 


SPRT,S SMECEP.SCLVS(O) 



C86-G03432*SKECEP.SCLVS (C) 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

m 

15 

16 

17 

18 

19 

20 
21 
22 
23 
2 <* 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 


C 

C 

c 

cc 


SLBRCUIINE SOLVES 

COKM CM /PLOTS/ X1(85),Y<85),X1L(85),YL{85)«YC{85>,YCEV<85), 

* YDS0{5),H{3,3),T(3)»S(12>»UPEAN(3», 

* A,A1,B,81,C*C1,AH,BH,CH,AN,AM,AN2,SHIFTX,SHIFTY, 

* IEQ,MV,NP,IERR,IS0LVE»NC7E,IFL'NCtCELX,N,IXXY,IRR,IRI. 
OIWEASICR U(12) 

SL8R0UTINE FOR SOLVING SIMULTANEOUS EQUATIONS 


V NRIT£{6,6789) IFUNC.N.DELX 
6789 FORMATdH , 2K S V , 2 1 5 , F 1C . 4 ) 

60 TO (30, 30, 40), NP 

30 DEN0M=(H(1,1)/H(1,2) )-{H(2,l)/h(2,2)) 

IF (OENCM.EQ.C. )GC TO 6C 
ANUM=(I{1)/H(1,2))-(T(2)/H(2,2)) 

AH=ANUM/DENOM 

8H = (T(1)-(AH#M1,1) ))/H(l,2) 

RETURN 

40 UU) = (M1,1)>»K2,3)1-(M2,1)«K1,3)) 

UC2) = {M1,2)>»M2,3)»-(PI2,2)*H(1,3)) 
U(3)=(T(1)«H(2,3)>-(T(2)«W(1,3>) 
U(4)::(K2,1)*H(3,3))~(H(3,1)*H(2,3)) 
U(5)=(H(2,2)«H(3,3))-(H{3,2)*H(2,3n 
U(6) = (T(2)«H(3,3))-(T(3)>»H(2,3)) 

DENOM = {U(l)/L(2))-U(4}/U(5) 

IF(DENCM.EQ.O.)GO TO 6C 
ANUM= (L (3 )/U (2 » )“(U (6 )/U (5) > 

AH=ANUH/DENOM 
BH=(U(3)-(AH«U(1)> )/U(2) 

Ch=n(l)-(AH>»M1 ,1) )-(eH*N(l,2) >)/h(I,3) 

RETURN 

ERROR MESSAGE 

60 WRITE(6,70) 

70 F0RMAT(*0»,//10X,»A ZERO DENOMINATOR EXISTS IN THE*, 

£* CALCULATIONS OF SUBROUTINE SOLVE. TUS RUN HAS*. 

£• BEEN TERMINATED.*) 

RETURN 

END 


JYES 


SPRT,S 


SMEDEP.GOTOCH(O) 



DB6-603i^32!^S^'ECEP.G0T0CI^(0) 

1 SUBROUTINE 60T0CH(I,J) 

2 C This ROUTINE MOVES THE A/N CURSOR 

3 lY = 767 - ( ( I-l ) 21 > 

IX = J >» 12 

5 CALL HCVA8S< IX,IY) 

6 CALL ANMOOE 

7 RETURN 

8 END 


5PRT,S SMEOEP.RETREV<G) 


TO LINE I CCL J 




to 



DB6-G03‘I32*SMEDEP.RETR£V <G) 


1 

2 

3 

<4 

5 

6 
7 
a 

9 

10 

11 

12 

13 

1*4 

15 

16 

17 

18 

19 

20 
21 
22 
23 
244 

25 

26 

27 

28 

29 

30 

31 

32 

33 
3*4 

35 

36 

37 

38 

39 
*40 
<41 

42 

43 

44 

45 

46 

47 

48 

49 
5G 

51 

52 

53 

54 

55 

56 


20 

40 

60 

80 


9C 


100 

120 

140 

160 


18C 

200 

22 0 
C 

c 

240 


RETREV <G ) 

SUBROUTINE RETREV (LFLAG) 

COMMON ;ABUF/IF,IFD, I SI F,IFETC(1 00,9 ) ,GCT<5CQt3) ,IEND 
COMM CN y BBUF/ RREC (18C ) ,V <160 ) ,VSLCP 1261 ) ,ID (6 0 
COMMON/NAMS/ITRSH (2 ) ,IhARDtIXMNV*IXMNC 
EOLIVALENCElRRECtB > 

DIMENSION IDD(1D),IIC0(9),IEX(11) , 6(601), TLD13) 

DATA IICO/*FETC* , 'LOOK* ,*DATA* ,*PLCT» , ’STOP* ,»SCRC’, 
6 *KOCV’/ 

DATA IEX/*M17I*,*M092*,’H092A»,»M073»,*M11C*,*M110A* 
1 ,*CEVR*,«EXEF*»*PRES*,* */ 

DIMENSION lie (4 ) ,IPH (4 ) , IDB (8 ) 

DATA IIC/*C *,*S *,*P *,* •/ 

CATA IFP/»PRE *,*IN » , ’ P C S T * , * AL L */ 

DATA ICB/»SL2 *,»SL3 *,*SL4 * , »GU YT * , *6RC0 * , *LENP ♦ , 

1 *BUIL * , *MOOV ♦/ 

DATA I60/*G0 */,IBLNK/» »/,IALL/'ALL */ 

DATA JYES/*Y */,JNO/*N */ , TLD/ 14 5 . , 20 9 . , 320 . / 

IF IGCm.l) .NE.C. ) GO TO 80 

DEFINE FILE 1 C 1 1 000 , 19 C , U ,KRE C ) , 1 1 ( 1 C CC , 19 C , U , NRE C ) 
DEFINE FILE 12 ( 1000 , 190 ,U ,NREC ) 

CALL ERTRAN(6,*aAD0 .TGF • *) 

CALL IMTT (300 ) 

IF=Q 
IFD = C 
ISIFri 

WRITE (6,20) 

FORMAT 1* WANT HARD COPY QUESTION DURING PRINT0UT?(Y 
READ (E,60,ERR=40> IPARD 
FORMAT 1A4) 

COKTINIE 


r n r I \ 

COKTINIE 
IEKD=1CD 
IEN06=S0Q 

IF ( IHARO.NE.^YES.AND.IHARD.NE.ONO ) 
WRITE (6,90) 

FORMAT!/* DO YOU WISH TO BIAS ALL CATA 
1 * BY LAUNCH C A TE S ? ( Y , N ) * ) 

READ (5 ,60 )NTBAS 
WRITE (6,120) 
fCRMATC COMMAND (FETC ,S 
A4,lX,S(A6ilX ]*/• COMM 

RFflD I S . 1 1 un 1 7T 


GC 


TO 40 

BASE TIMES*, 


WRITE (6,120) 

f CRMAT ( » COMMAND (FETC tSCRC t LOOK , DATA, PLOT ,eUIL,XPLCi 
lA4,lX,S(A6ilX ]*/• COMM ID EN * , 4 ( 2X , * I C E N * ) ) 

READ (S,160,ERR = 140) I COM , ( ID ( I ) , I r 1 , 9 ) 

FORMAT (A4,1X,9(A6,1X) ) 

IF (ICOM.EQ.IALL ) 60 TO 1460 
DO 180 1=1,9 
11 = 1 

IF (ICCM.EQ.IICO(I)) GC TO 220 
CONTINLE 
WRITE (6,200) 

FORMAT ( * COM 

r- rx X 1 i* n 


GC 

GO 


• A V 4 . 

TE (6,200) 

MAT (* . COMMAND NOT RECOGNIZED. . .TRY AGAIN*) 

TO 140 

TO {260,158C,158C,2 38C,2 44C,24 0,2<4CC,24 2Q,24 3Q), 


SCRATCH (SCRCH) COMMAND.... 
IFO = D 
IEND=1C0 
IENCG=5CC 


,IENDG 

•BUIL * , *XPLO 
, ’DUMMY* 


,N) * ) 

MCDV,STCP ) • , 



ir=D 

IXMNV=C 

IXMNC=C 

C FETCI- CCFM/lfC 

26C CALL NEWPA6 
NCGMB=1D(1) 

IF (NCCMB.NE.IBLNK) NCB=IF4i 
IFCIF.LT.ISIF )11LST=1 
WRITE 16,260) 

28C FORMAT (* DO YCU WISH INSTR0C7I0^S? { Y > * ) 

300 READ (E,320,ERR=300) IANS 
320 FORMAT (Al) 

IF (lANS.NE.JYES) GO TO 36G 
WRITE (6,3M0) 

3‘IC FORMAT C (ICEA = l-6 CHARS. TC IDENTIFY DATA)** ( NO . = 1 . - 1 8C . . t’NLE S S 
IFRCM A MODEL)*/* (DATA B A SE = SL2 , S L 3 , SL<J ,G U VT , GROD ,L BNF , HE A T , ) * / • I 
2F DATA FROM A MODEL, IGNORE REST OF INPUT...*/* ( EX P E R = M 1 7 1 ,MC 92 , M 0 
373,MHC,CEVR,*,*EXER,PRES)*/* .(MAN C = COMMAND£R ,S = SCIENCE PILOT, **P 
9=PIL0T) (PHASErPRE, IN', POST) •/ * <CAY = IGNCRE UNLESS FUNCTICN*,* EXER 
5 OR PRES)*/* INPUT GC WHEN FIMSHEC FETCH/SCFCh * , * INPUT*,* , HIT 
6CR IF WANT INSTRUCTIONS*) 

36D CONTINUE 

WRITE (6,380) 

380 FORMAT (* *,13X,*DATA FUNCTN/*/* IDEN NO. BASE*,* EXPER H 
IAN PHASE DAY*) 

9CC IlrO 

READ (E,920,ERR = 860 ) I C ( 1 ) . X , I C ( 5 ) , ( I C ( I ) , I = 2 , ) , X 1 
92C FORMAT ( A6 , 1 X , F 6 . 0 , A 9 , 3X , AS ,2 X , A 1 , 3 X , A 9 ,3X , F 8 . C ) 

IF (ID(1).EQ.160) GC TO 1040 
IF (ID(l).EO.IELNK) GO TO 260 
C FIND DATA BASE 

IF (IILST.EO.C. AND. 10(5). EQ.IBLNK) GC TO 480 
DO 440 1=1,7 
. IB = I 

IF ( I0(5).EQ.ICB(I) ) GO TO 460 
44C CONTINUE 
11=3 

GO TO 860 
460 IBB = IB-»9 

IBS=1B 

480 IF (IILST.EQ.O. AND.X.EQ.O. )X = IFETC (IF ,1) 

11=2 

XNOR=G. 

I2WZ-268435456 
IF (IBE.LE.12) 60 TO 6C0 
C HERE IF DATA FROM MODEL OUTPUT. 

READ (18B ,ERR = 56Q ,ENC=:5ao ) XNCU 
see REWIND IBB 

READ (26B,ERR=560,END=560) XNOW 
52C READ ( IBB ,ERR = S6D ,END = 54G ) (B ( JGEE ) ,UGEE = 1 , 4 ) 

XN0R=XN0R+1 . 

I2W=B(1)*60. 

IF(XNCR.LT.1.5)Xl = e<l)=0 60. 

GO TO S2D 
540 REWIND IBB 

IF (X.LT.1..0R.X.6T.XN0W) 60 TO 860 







114 

115 

116 

117 

118 


119 

120 

560 

121 

122 

123 

580 

124 

600 

125 

126 

127 

128 

129 

130 

C 

131 

620 

132 

133 


134 

135 

640 

136 

660 

137 

138 

139 

C 

14Q 

141 

680 

142 

143 

7CC 

144 

720 

145 

146 

740 

147 

148 

760 

149 

150 

780 

151 

152 

153 

154 

155 

C 

156 

157 

158 

800 

159 

C 

160 

161 

162 

163 

820 

164 

165 

84C 

166 

C 

167 

860 

168 

880 

169 

170 

9CC 


IF (}(.C-T.6QI. ) GC TC 860 

IE=11 

IM=4 

60 TO 920 
IM=IBB-9 

h'RITE (6.580) IEB,IBe,IDB (IP) 

FORMAT UNIT, 13, • ERROR.*,' LMT',13,' SHOULD BE ASSIGNEE TO DA 
ITA BASE *,A4) 

60 TO 900 

IF (X,iLT,l) GO TO 860 
FINE EXPERIMENT. 

IF (I£.EQ.11)I1LST=1 

IF (I1LST.EQ.C.AND.IC(2).EQ.IBLNK) GO TC 640 
00 620 1=1,10 
IE=I 


IF (10(2).EQ.IEX(D) GO TO 640 

CCNTINLE 

11=4 

GO TO 860 

IF (X.LT.181) 60 TO 66C 

IF (IE.NE.2,AND.IEoNE.5.AN0.IE.NE.10) GO TO 860 
IF (IE.LE.8) GO TO 780 

HERE IF EXEfi OR PRES FUNCTION. MAHE SLRE CATA NO, CORRECT. 
IF (IE.EQ.9) GO TO 720 
DO 680 12=1,96,5 
IF (X.EQ.I2) GO TO 780 
DO 700 12=151,281,5 
IF (X.EC.I2) GC TO 780 
60 TC 860 
DO 740 12=1,41,5 
IF (X.EQ.I2) GO TO 780 
DO 760 12=91,111,5 
IF (X.EQ.I2J GO TO 780 
GG TC 860 

IF (X.GT.180. )IE = IE + 1 
IF (X .6T.180. )X = X-18D. 

FIND MAN. 

IF (I1LST.EQ,C.AND.ID(3).EQ.IBLNK) CO TO 820 
DC SCO 12=1,3 
IM = I2 

IF (I0(3>.EQ.IIC(I2n GO TO 820 

CONTINUE 

11=5 


GC TC 860 
FIND PHASE. 

IF {I1LST.EQ.(.AND.ID(4».EC.I8LNK) GO TO 920 
DO 840 12=1,4 
IP = I2 


IF (ID(4).EQ.IFh(I2)) GO 70 920 

CONTINUE 

11=6 

HERE IF ERROR IN FETCH INPUT, 

WRITE (6,880) II 

FORMAT (• ««ERROR IN FLD',12,' OF ABOVE FETCH INPUT««') 

I1LST=1 

60 TC 400 





171 

C 


172 

C 

PUT FETCH INPUT IN IFETC ARRAY. 

173 

92C 

IF=IF+1 

n't 


IF (IF.LE.IENG) GO TO 98C 

175 


WRITE 16,940) 

176 

940 

FORMAT (* FETCH ARRAY FULL , WILL DO A GO...*) 

177 


WRITE (6,960) IF,IEND 

178 

96C 

FORMAT (* IF:*,I4,5X,*IEND=*rI4) 

179 


IF=IENC 

18Q 


GO TO 1040 

181 

980 

IF lIF.LE.l) 60 TO 1Q2C 

182 


1=IF-1 

183 

C 

MAKE SURE NOT DUPLICATE IC. 

184 


DC ICOC 12=1,3 

185 


IF ( IFETC(I2,2) .NE.ID( I) ) GO TO IDCG 

186 


IF (IFETC(I2,2).NE.NC0MB) GO TO lOCC 

187 


11 = 1 

188 


IF = IF-i 

189 


GO TC 660 

190 

IDCO 

CCNTIME 

191 

1020 

IFETCC1F,1)=X 

192 


IFETC(IF,2) = ICm 

193 


IFETC(IF,3)=IE 

194 


IFETC(IF,4)=IM 

195 


IFETC(IF,5)=IF 

196 


IFETC ( IF,6 ) = IEB 

197 


IFETC(IF,7)=X1 

198 


IFETC(IF,8)=I2W 

199 


IFETC(IF,9)=XN0R 

2Q0 


I1LST=C 

2C1 


GO TC 400 

202 

C 


203 

C 

GO INPUT ... 

204 

c 

HERE WHEN TO SEARCH DISK FILE FOR DATA REQUESTED IN IFETC ARRAY 

205 

1040 

DO 144D 1=1,3 

206 


lB=2+9 

207 


J=ISIF-1 

208 


IF (NTBAS.EQ.UYES 1 TBI AS = -TLD ( I ) * 14 4C . 

209 

c 

SEE IF ANY DATA FROM THIS SKVLAB WANTED. 

210 

1060 

U = U+1 

211 


IF (v.GT.IF) CC TC 1440 

212 


IF (1FETC(J,6 l.NE.IB) GO TO 1C6D 

213 

c 

HERE WHEN FCUND A DATA WANTED IN THIS SKYLAB DATA BASE 

214 


NREC=1 

215 

c 

READ FILE BOOK... 

216 


READ (IB *NREC ,ERR = 14C0 ) (ID (ID, 11 = 1, 6) 

217 


NREC = IC(l>-»2 

218 


JDAY=IC(2)+2 

219 


LSDAY=ID(5)+1 

220 


IF e (I-H).EQ.ID(7D GO TO HDD 

221 


IZ = I+1 

222 


WRITE (6,1080 IB, 12' 

223 

1080 

FORMAT (• «*ERROR , UNIT •,I2,» DOESNT HAVE SL *,I1,* DATA>»«D 

224 


GO TC 1440 

225 

c 


226 

c 

60 THROUGH FILE DAY STARTING AT EARLIEST ENTRY TO LAST ENTRY. 

227 

IICC 

LENDC=NREC 



228 

229 

230 

C 

231 

C 

232 

C 

233 

1120 

234 

235 

236 

237 

238 

239 

240 

241 

242 

1130 

243 

C 

244 

245 

c 

246 

247 

248 

249 

250 

251 

252 

c 

253 

c 

254 

255 

256 

c 

257 

258 

259 

260 
261 
262 

263 

264 

1140 

265 

266 

c 

267 

1160 

268 

1180 

269 

270 

271 

272 

C 

273 

1200 

274 
2 75 

276 

277 

278 

279 

280 

1220 

281 


282 

283 

1240 

284 



READ (IB»NREC,ERR = nCO) U D ( 1 1 ) , U = 1 , 6 C ) 

NNREC = ID (8 ) + 2 

60 through’ IFETC ARRAY TO SEE IF A^Y DATA KANTS THIS DAYS DATA. 
CCMFUTE INDEX OF FISSION PHASE hCRC IN CAY RECORD. 

IF < IFETC C J,6 ) .NE .IB ) GO TO lltJO 
KWriFETC ( J,3 > 

IF (KK.GT.8)KW=KW-8 

IW=( (KK-l)«6)+9 

IU = IK* niFETC )-l )>*2 ) 

IF (ID(IW).EC.-l) GO TO 13MC 
IF <10 (Iln + 1) .LT.D > GO TO 13‘I0 
IF (IFETC(J,5 ).EQ.4) GC TO 1130 
IF ((IDdWl/lODJ.NE.IFETCfJrS)) GO TO 1340 
NREC:IC<IW41 )-*LSDAY*l 
READ F-ILE EXPERHNT 

READ UB'NREC ,ERR = 1400) < ID 0 ( 1 1 ) , 1 1- 1 1 1 0 ) » < RREC < 1 1 I ♦ 1 1 = 1 , 1 80 ) 

DO VALIDITY CK ON THIS EXPERMNT RECORD CCFPARED TO FILE CAY REC. 
11 = 1 

IF (IDCCl) .NE.IDC 1) ) GC TO 1360 
11=2 

IF <I0C<7).NE.KW) GC TC 1360 
11=3 

IF U0C<8).NE.IFETC( J,4)) GO TO 1360 
II = 4 

IF<ICD(9> .NE. ID(IK)) GC TC 8E 
11=5 

IF <IDC(10).NE.(I-»1) ) 60 TO 1360 

GET DATA IN FILE EXPERMNT FOR THIS INPUT 
IR=IFETC(J,1 > 

IF (lFETC<Jr3).LE.8» GC TO 1140 
IF UFETC(J,8).NE. -268435456) GC TC 134C 

IF (IFETC<U,7).NE.rDD(l).AND.IFETC<J,7).NE.D) GO TO 1340 

IF ( (IFD*5> .GT.IENOG » GO TO 1160 

IFD=IFD+1 

GO TO 1200 

IFC = IFC-»1 

IF CIFC.LE.IENDG) 60 TC 1260 
HERE IF REACHED LIMIT OF GOT ARRAY 
WRITE (6,1180 IFETC(J,1) 

FORMAT (* BUFFER FOR SL DATA FULL.*/* WILL CONTINUE WITH ALL IDENT 
IS ENTERER BEFORE *,A6) 

IFETC (.- ,8 >=-268435456 
60 TO lOG 


12 = 1 

13 = 1 

14 = 5 

IF (IFETC(U,3).6T,9) GC TO 122C 

12 = 5 

13=5 

14=25 

IFETC(.j,7) = ICD(l) 

IFETC(v,9)=5 
IFETC(.,,8) = IFC 

G0TUFC,1) = (IDD(1)«144C.)*12 + TBIAS 
G0T(IFC,2)=RREC(IR) 


^s 

-5 



285 

286 

287 

288 
289 
29C 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 


C 

1260 


GO TO 1260 
Tf-IS C/STA. 


C 

1280 


1300 


1320 

C 

C 

1340 


C 

C 

1360 

1380 


C 

C 

1400 

1420 


C 

1440 


FUl ^EXT 4 CA7A ASSOCIATED V-ITh THIS VARIABLE IN GOT. 
12=I2*I3 

IF (I2.GT.I4) 60 TO 1340 
GOT( IFC,3)=IF0+1 

IF <IFETC(J,3) .GT,8.AND.IFETC(J,3) .LT,12)IR2IR + 1 

IFD=IFC-*1 

GO TO 1240 

HERE IF NOT EXEC OR PRES FUNCTION. 
60T(IFC,1I=IDC(1)*144C.+TBIAS 
G0T(IFC,2)=RREC(IR) 

IF nFETC(U, 8). NE. ’•268435456 ) 

HERE IF 1ST ENTRY IN COT FOR 
IFETC(..»8)=IFC 
IFETCC.,,9) = 1 
60 TO 1340 

HERE IF NOT 1ST ENTRY IN GOT FOR THIS VARIABLE. 

I2 = IFE1C C J,9 } 

IFETCU,9) = 1FETC(U,9)41 
Il = IFETC ( J,8 ) 

12 = 12-1 

IF {I2.EQ.0) GO TO 1320 
I1 = 6CT 111,3) 

GO TC 1300 
GOTCIl ,3) = IFC 

U = «J 1 

IF (u.LE.IF) CO TO 112C 

IF ILENDD.EQ..,DAY ) GO TO 1440 

NREC=NNREC 

J=ISIF 

60 TO 1100 

I2=NREC-LSDAY-1 

WRITE (6,1380 1 1 , L E N 0 D , 12 , IF E TC ( J , 2 1 

FORHAT (• ««DETECTED AMB IGUIT Y • , 12 , * BETWEEN REC.*,I5,» 
lAND REC.*,I5,» OF EXPERMNT WHEN * , *P R C C ESS I N G *,A6> 

6C TC 1340 


OF DAYV* 


WRITE (6,1420) NREC,IB 

FORMAT (• ««ERROR WHEN READING REC.*,15,» CF FILE*,’ CN tNIT’,13/* 
1 RLN ABORTED’) 

RETURN 


CONTINUE 
GO TO 1560 
C ALL CCMKAND TC CLMP TABLES..... 

1460 DO 15CC 1 = 1, IF 

WRITE (6,1480) ( IFE TC ( 1 , I 1 ) , II = 1 , 9 ) 
1480 FORMAT (* * , 1 7 , 1 X , A6 , 5 if , 1 1 ^ , 17 ) 
1500 CONTINLE 

CO 154C 1 = 1, IFC 

WRITE (6,1520 (GO T ( 1 , 1 1 ) , 1 1= 1 , 3 ) , I 
1520 FORMAT (’ •,3F12.3,I7) 

1540 CONTINLE 


to 

00 



342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 


60 TO IDQ 
1560 ISIF=3F^1 
C 

C I6N0 REMOVES ALL NEGATIVE NUMBERS FROM ThE SIGMA3 D.B. 
C 

IF (IBB.LE.12) CALL IGNO 

IF (NCCH8.EQ.IELNK) GO TO 100 

IF=IF*1 

ISIF=IF+1 

IFETC(IF,1)=IFETC(NCB,1) 

IFETC<IF,2)=NC0MB 

IFETC{1F,3>=IFETC(NCB,3) 

IFETC(IF,4)=IFETC(NCB,4) 

IFETC(IF,5I=IF£TC(NCB,5) 

1FETC<IF,6>=IFETC(NC8,6) 

IFETC(IF,7)rIFETC(NCB»7> 

IFETC( IF,8 » = IFETC(NCB,8) 

IFETC (IF,9)=C 
IFMl:IF-l 

00 157C I=NCBjIFMl 

IFETC fIF,9) = lFETC{IF,9)*IFETC (1,9) 

1570 CONTINUE 
J = J+1 
»JKrlF-NCB 

NNX = IFETC(NCB,8 ) 

1571 JK=JK-1 

IF ( JK.LT.l ) GO TO 100 

1572 NNXS=NNX 

NNX = G01 (NNX ,3 ) 

IF (NNX.GT.O) GO TO 1572 
NCB=NCE+1 

60T(NNXS,3)=IFETC(NCB,8) 

NNX=IFETC(NCB,8) 

GO TO 1571 
C GO TO ICG 

C 

C LOOK COMMAND OR DATA COMMAND 

1580 IP:50 

IW2 = 0 

CALL NEWPAG 
CO 236C 1=1,9 

IF (ID(1 I.EC.IALL) GO TO 1640 
IF (ID (D.EQ.IBLNK) GO TO 100 
DO 160C J=1,IF 
J 1 = J 

IF ( 10 (1 ) .EO.IDB (8 ) ) GC TO 2350 
IF (ID(I).EQ.IFETC(J,2) ) GC TO 166C 
1600 CONTINUE 
IER = I 

1610 IP=IP+1 

IF (IP.GT.28) CALL RETFGE ( IP , IF A RC , „ N C ) 

URITE (6,1620 ICdER) 

1620 FORMAT (* *,A6,* NOT RECOGNIZED.*) 

GO TO 2280 
1640 Jl=l 

C HERE WHEN FOUND VARIABLE LOOKING FOR IN IFETC... 

1660 IlrlFETC (.;1,3 ) 



399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 


12 = IFEK(J1,4) 

13 = IFETC ( J1 ,5 ) 

I4=IFETCtJl,6 )~9 
IF (I4.LT.1) 14=8 
II<2 = IW2 + 1 

IF (NTBAS.EQ.^YES) 16 1 A S = * TLD ( 1 4 ) « 14 40 . 

IP=IP+1 

IF (IP.GT.28) CALL RETP6E ( IP ♦ IH ARC * JNO ) 

IF ( IFETC( Ji,6) *LE.12) GO TO 1740 
C HERE IF DATA FRCP A MCCEL. 

IF ( IFETCf J1 ,9) .LE.D ) GO TO 1760 
1R = IFETC IJl ,1 ) 

IB=IFETC(J1,6) 

IF < IB,EQ.16) IR=IR«2 

REUIND IE 

XNOR = IFETC ( J1 ,9 ) 

READ ( I8,ERR:17C0 ) XNOU 
X=-5C0C0000. 

X1=50DQDOOO. 

R1=“99S9900, 

IH=0 

1680 IN=IN+i 

READ (IB,ERR = 17DG,END = 17D0) ( B ( 19 ) , 1 9 = 1 , IR ) 
IF{IB.EQ.16)B(1)=BIIR-1) 

IF<Ri.LT.-99S9895^)Rl=B<l) 

R2=B ( 1 » 

IF CB (IR) .LT.X1)X1=B (IR ) 

IF(BaR).Gl.X)X = B(IR) 

IF < tIN + D.LE .IFIX(XNORM GO TO 1680 
CALL TIMPRK R 1,N01 ,HH1 ,NM1,NS1 ) 

CALL TIHPRT (R2,KD2 ,KH2 ,NP2,NS2 > 

IF aCCP.EQ.IICO (3 J .AND .IU2.NE . 1 >IP = 3C 
60 TO 2060 

170D IN = IFETC(J1,6 )-9 

WRITE (6,1720 ) I DB ( IN ) , IFE TC IJ 1 ,2 » 

1720 FORMAT (♦ ERR READING CATA BASE »,A4,» FOR »,A6) 

60 TC 228C 
C 

1740 IF (IFETCIJI, 8). NE. -268435456) GO TO 1800 

1760 WRITE (6,1780) IFE TC ( J 1 , 2 ) , IF ETC ( J 1 , 1 ) , IDB ( 1 4 ) , lEX ( 1 1 ) , I IC ( 12 ) , IPH 

1780 FORMAT (* * , A 6 , 1 4 , 1 X , A 4 , 3 X , A5 , 3 X , A 1 , 3 X , A 4 , EX , * N 0 EATAM 
THIS WILL FIX GOT »,HEN NO DATA OCCLRS BETWEEN 
C*=»*=» TWO FETC VARIABLES WITH DATA ON COMBINE 
C***’)' LOOK/DATA ’NCDATA VARI* MUST BE CALLED TC FIX 
IF ( NCCME.EO .IBLNK ) GO TO 2280 
C NCB=NCB-»1 

IU=D 

1785 1U:IU*1 

IU.M = ^1-IU 

C IF (ILM.LT.IJ 1FETC<NCB-1,8)=IFETC (NCB,8) 

C IF (lUM.LT.l) GO TO 2Z8C 

IF ( IFETC ( lUM ,9 ) .LT .1 ) GO TC 1785 
NSK=IFETC(IUM,8) 

NSKL=IFETC(ILM,9) 

DO 179C IU=1,NSKL 
NXG=NSH 


CO 

o 



M56 


KSK = 60T CNSKt 2 ) 


<457 


IF INSK.LT.l) 607 tNX6,3)zIFETC (01+1,8 » 


<458 

1790 

CONTINLE 


<459 


GO TO 2280 


<460 

C HERE WHEN THERE IS DATA FOR THIS VARIA6LE IN GOT,... 


<461 

18C0 

IRzIFETC (ol ,8 ) 


<462 


INzIFETC ( J1 ,9 ) 


<463 


XZ-5G0C0D0D . 


<46<4 


X1Z5DOCOOOO. 


<465 


J = 1 


<466 


AV=0 . 


<467 

1820 

IF{GCT(IR,2J.GT.X)X=GCT(IR,2) 


468 


IF(60T(IR,2).LT.X11X1zGOT(IR,2> 


469 


RREC(J):G0T(IR,1> 


4 70 


RREC(J+1)zG0T (IR,2) 


471 


AV=AV+60T(IR,2) 


472 


V — ^ ^ 


473 


IN=IN-1 


474 


IF (IN.LE.O) GO TO 1640 


475 


IF (6CT(1R,3).GT.Q.) GC TO 1830 


476 

C 

IF (NC0MB.EQ.IFETC(J1,2) ) IR=IR+1 


477 

C 

IF INCCHB.EC .IFE7C («1 ,2 ) .AND. I R .G T . I F E T C ( 1 , 9 )) IR = IR-1 


478 


IRzIR+1 


479 


GO TO 1820 


480 

1830 

IRzGCT (IR,3) 


481 


GO TO 1820 


482 

1840 

CALL TIMPB (RREC(1),TBIAS,ND1,NH1,N!“1,NS11 


483 


CALL TIKPB (RREC (^t2 ),TBIAS,ND2,NH2,NP'2 ,NS2) 


484 


NDFzlFETC<Jl,9)-l 


485 


IF (NDF.LT.l) GC TO ZCCO 


486 


SDZO, 


487 


AV = A\//IFETCt01,93 


488 


INZIFETC ( J1 ,9 > 


489 


IRzIFETC (J1 ,8 ) 


490 

i860 

SCzSC+(G0T(IR,2)-AV)««2 


491 


INzIN-1 


492 


IF (IN.LE.O) GO TO 1880 


493 


IF ( GOT (IR ,3 ) .GT.O . 1 GO TO 1870 


494 


IRzIR+1 


495 


60 TO 1860 


496 

1870 

1RZ6CT(IR,2) 


497 


GO TO 1860 


498 

1880 

SDzSQRTISD/(IFETC<Jl,9)-l)) 


499 

C 

T TEST CALDCATICK... . 


500 


Rlz.95 


501 


NDFzIFETC(J1,9)-1 


502 


IF (NDF.LT.X) 60 TO 20GC 


503 


R2Z2, 


504 


CYZSTLC (R2 ,NCF ) 


505 


IF (Rl-CY) 194C ,1920 ,1900 


506 

1900 

RX1Z2.C1 


507 


GC TC 1960 


508 

1920 

TTESTZ2, 

CO 

509 


GO TO 1980 

M 

510 

1940 

RX1Z1.99 


511 

1960 

TTESTzfiXl 


512 


RYVzsTLC(TTEST,NDF) 




513 

519 

515 

516 

517 

518 

1980 

519 

520 

2000 

521 

2020 

522 

523 
529 
525 

2090 

526 

2060 

527 

528 

529 

530 

531 

2080 

532 

533 

2100 

539 

535 

536 

537 

2120 

538 

539 
590 

2190 

591 

592 

2160 

593 

599 

2180 

595 

2200 

596 

C HI 

597 

598 

599 

2220 

550 

551 

552 

553 
559 

555 

556 

2290 

557 

2260 

558 

2270 

559 

560 

2280 

561 

562 


563 

569 

c h 

565 

23CC 

566 

567 

568 

569 



IF <ABS(RYY-R1>.LE*.001> GO TO I960 

RXl=tTeST+(TTEST-R2}#(RI*RYY >/(RYY-CY I 

R2=TTEST 

OY=RYY 

60 TC 1960 

IZ = 0 

60 TO 2020 

IWFL:2 

CCMIME 

IF (IW2.EQ.1) GO TC 2Q<I0 
IF(IC0K.EQ.IIC0l3))I2=IFETCfJl,9> 

IF { CI2+IP).GT.28» CALL RETPGE ( IP , IH ARO ♦ JNO » 

IP=IP+1 

IF-IP+1 

IFae.EQ. 16)11 = 8 

IF IIP.6T.28) CALL RETPGE tlP » IH AR C » c ^ C ) 

WRITE (6 ,2080 IFETCCJl.ZltlFETCiJltDtlOBJItOtlEXaD.IICdZI.IPH 
1 (13) ,NC1,NH1 ♦NMl*NSltND2,NH2,NH2,NS2,IFETC(JI,9) 

FCRHAT (* *,A6, 19, IX, AttdXtAStSXiAldXtAAtlE, 313,15, 213, I£) 

WRITE (6,2100 X,Xi 

FORMAT (• *,9X,G13.3,»=HI6h V ALOE * , 2X ,G 1 3 . 3 , • = LO W VALLE’) 

IF (IFETC(J1 ,e).GT»12> 60 TC 220C 
IF (IWFL.NE.2) GO TO 2190 
WRITE (6,2120 

FORMAT {* ONLY ONE PT. NC STATISTICS GENERATED’) 

IWFL=0 
GO TO 2180 
CONTINUE 

WRITE (6,2160) AV,SC,TTEST 

FORMAT (• ’,2X,G13.9,’ = MEAN ’ ,2X , G 1 2 .9 , * = ST K .DE V . ' ,F 1 C . 6 , ’ = T AT . 
195 *» 

CCNTINLE 

IF (ICCH.NE.IICO (3)) GO TO 228C 


IF (IFETC(J1,6).GT.12) GO TO 23CC 
16 = 1 

IF (RREC (16) «LT .-9999899 , ) GO TO 2Z7C 

IF (10(1). £0.108(8)) CALL M CO V AL ( RR E C ( 1 6 ) , MFUN ,N V AL N , VK 1 ) 
CALL TIMPB (RREC(I6) ,TBIAS,ND1,NH1,NM1,NS1 ) 

CALL MCYR (NOl, 19,13,12) 

IF=IF+1 

IF (IP.LE.28.CR.IHARD.E0.JN0) GO TC 2290 
CALL RETPGE ( IP ,lHARD,wNO ) 

WRITE (6,2260 RREC ( 16 ♦ 1 ) , ND 1 , NH 1 , N M 1 , N S 1 , 19 , 1 3 , 12 
FORMAT (* *,5X,615.9,I6,'D’,I3,’H*,I3,»M’,I3,’S*,2X,A9,I3, 
16=16^2 

IF (I6.LT.J) GC TC 222C 

IF UO(l).NE.IALL) GC TO 2360 

J1=J1-»1 

IF («1.LE.IF) 60 TC 1660 
GO TO 100 

?E IF DATA FRCM A MODEL. 

REWIND 16 

READ (IB,ERR=17CC) X 
IN=IFETC(J1,9) 

DO 2390 19 = 1 , IN 

READ (IB ,ERR = 170D,ENC=1700) ( B ( II ) , 1 1 = 1 *IR ) 


15) 


CO 



S70 


IF(IB.EQ.16)B(1)=B (IR-1) 


57X 


B (2 )=B (IR ) 


572 


IF (B( 1) oLT.-9999899o> GO TO 2340 


573 


IF ( ID (1 1 .EQ.IDB (8 ) ) CALL MOD V A L { B 1 1 } , M F UN , N V AL N . VK , J 1 ) 

S7‘l 


CALL TIMPRT(E<1),NC1«M-1,NF1»KS1) 


575 


IP=IP+ 1 


576 


IF nP.LE.28.CR.IHARD.EO.UNOJ GO TO 2320 


577 


CALL RETPGE ( IP , IH ARD , UNO > 


578 

2320 

WRITE (6,2260 ) B ( IR ) ,ND 1 , NH I , NM 1 ,NS 1 


579 

2340 

CCNTULE 


580 


GO TC 2280 


581 

2350 

DO 2353- UX = 1 ,IF 


582 

2353 

IF (ID(2).EQ.IFETC(UX,2) » GO TO 2354 


583 


IER = 2 


589 


60 TO 1610 


585 

2354 

WRITE (6,2351) 


586 

2351 

FCRKAK//* RECLEST TO FOOIFY DATA ACCEPTED,’/ 


587 


1 * ENTER MODIFY FUNCTION (MFUN), NEW VARIABLE 

NAME (NVALN) 

588 


2 • AND CONSTANT (VK)’/’ • MFUN = 1, NEW = OLC •* 

VK */ 

589 


3 ’ =2, NEWrOLD “ VK’/’ =3, NEW 

=OLD ♦ VK’/ 

590 


4 • =4, NEW=CLD / VK’/ 


591 


5 ’ =5, NEW= (CLC-VK )/VK ♦ ICG. it)*/ 


592 


6 • =6, NEU = CLD##2’/’ =7, NEW = LN ( OLD ) * / 

593 


7 ’ -8, BIAS TINE BY VK(DAYS)*/’ ( 1 1 / A 6 /E 1 2 . 5 ) ’ ) 

594 


READ (5 ,2 352 )MFUN,NVALN,VK 


595 

2352 

FORMAT (I1/A6/E12. 5 ) 


596 

2360 

CCNTINLE 


597 


GO TO IDD 


598 

C 

PLOT COMMAND 


599 

2380 

CALL PL0T26 


600 


GO TO 100 


601 

C 



602 

C 

IGNCR COMMAND 


603 

2400 

CALL BLILD 


604 


60 TC 100 


605 

2420 

CALL REGRES 


606 


60 TC 100 


607 

2430 

CALL NCC2V 


608 


GO TO 100 


609 

2440 

STOP 


610 


END 



aPRT,S SMEDEP.I6N0(G) 



DB6-G03‘432 4SKECEP.IGK0 <C » 

1 SUBROUTINE IGNO 

2 COHMCN/ABUF/IF,IFO,ISIF,IFETC < 10C,9 ),GCT(5CC, 

3 DO 4D IRR=1,IF 

4 INO = IFETCURR,9> 

5 IG = IFETCIIRF.SJ 

6 IGX = IG 

7 29 IF (GCTilG, 21+2222. )99, 30, 99 

8 99 COMINLE 

9 160=16 


IQ 

11 


14 

15 

16 
17 
18- 
19 
2D 
21 
22 

23 

24 

25 

26 


98 CONTINUE 

IG = GCT(IG,3) 

IND = IND - 1 

IFdND .CT. C) GO TO 29 

60 TO 40 

30 IF£TC(IRR,91 = IF£TC(IRR,9) - 1 
IF (IFETC(IRR,9) .GT. 0) GO TO 33 
IFETCnRR,8 ) : -268435456 
GO TO 38 

33 IFdGX .EQ.lGl IFETCdRR,8) = G0TdG,3) 
IFCIGX .NE.IG) G0Td60,3) = 60TdG,3) 

38 GOTdGtl) = -9999900. 

IGX = lFETCdfifi,8) 

GO TO 98 
4C CONTINUE 
RETURN 
END 


3) 


oPRT,S SMEDEP.RETP62<C) 


09 



OB6-GQ3‘432*SM£OEP.RETP62(0) 

1 SUBROUTINE RETP6E (IP ,IhARD ,JNO J 

2 IFdP .6T. 49) GO TO 150 

3 IFIIHARD .EO. UNO) RETURN 

4 CALL PAGE3 

5 15C WRITE(6,i51) 

6 151 FORMAT(» SllXs'OATA FUNCTN/ ’ , 12X , ’ o . .ST ART . . . 

7 1 ..STOP.. o . NO.’/* IDEN NO. BASE EXPER 

8 2 ’ MAN PHASE’, 2(* DAY HR MN SEM,* DATA’) 

9 IP : 2 

' 10 RETURN 

11 END 


£IPRT,S 


SMECEP.MCDVAL(C) 



r 


DB6-G03‘j3 2=»SFEDEP.H0DVAL <0 ) 

1 SUBROUTINE MOCV AL (C ATA ,MFUN »N V ALN , WK > 

2 C0MMCN/ABUF/IF,IFD,ISIF,IFETCnCC,«)»GCT<5C0,3),IENC,lENCG 

3 REAL DATA(2) 


4 


IF (MFLN.LT.l .ORo HFUN.6T.8) GC 7C ECC 

5 


GO TO UQ, 20, 30»4Q, 50,60,70,80, FFLN 

6 

10 

DATAN = CATA(2 nWK 

7 


GC TC 100 

8 

20 

DATAN=DATA(2 }-VK 

9 


GO TO 100 

10 

3C 

CATAN = CATA(2 

11 


GO TC ICC 

12 

40 

DATAN = CATA(2 )/VK 

13 


GC TC ICO 

1<4 

50 

DATAN= (DATA < 2 )-VK )/VK « 100. 

15 


60 TC 100 

16 

6C 

CATAN = CATA<2 )^=»2 

17 


GO TC IOC 

18 

70 

DATAN = ALOGtOATA (2 » ) 

19 


GO TO 100 

20 

80 

DATAN=CATA(1 )+VK*1440. 

21 

ICQ 

CONTINUE 

22 


WRITE C6,l 1C >CATA,DATAN,NVALN 

23 

no 

FORMAT (3G15. 5 ,5X ,A6 ) 

24 


IF ( NVALN.EQ .NVALL J 60 TC 140 

25 


NVALL=NVALN 

26 


NC = 0 

27 


IFrlF^l 

28 


ISIF=ISIF+1 

29 


IF (IF.LE.IENC) GO TO 130 

30 


WRlTEie ,120 ) 

31 

120 

FORMAK//* FETCH ARRAT FULL*) 

32 


IF=IF-1 

33 


60 TC 52C 

34 

130 

IFETCaF,l) = IFETC(Ol ,1) 

35 


IFETC(IF,2)=NVALN 

36 


IFETC(IF,3)=IFETC(J1,3) 

37 


IFETCaF,4> = IFETC(0l,4) 

38 


IFETC(3F,S»:IFETC(wl,5l 

39 


IFETCaF.eniFETC (.jI ,6 > 

40 


IF (1FETC(IF,6).GT.12) IF E TC ( IF , 6 ) : 9 

41 


IFETC(1F,7)=IFETC(J1,7J 

42 


IFETC(IF,8)=IFC+1 

43 


lFETCnF,9> = IFETC(..l,9) 

44 

140 

IFC=IFC*1 

45 


IF (IFC-LE.IENDGI 60 TO 160 

46 


UR1TE<6,150) 

47 

150 

FORMAT!//* DATA BUFFER FULL*) 

48 


IFC=IFC-1 

49 


GC TC 520 

50 

160 

GOT C IFC,1 ) = DATA (1 > 

51 


IF (MFLN.EQ.7) GO T ( I F 0 , 1) =D AT AN 

52 . 


G0T(IFD,2)=DATAN 

53 


G0T(IFC,3)=D, 

54 


NC=NC+1 

55 


IF (NC.LT.IFETC(IF,9}> G 0 T ( IF 0 , 3 ) = IFC ♦ 1 

56 


RETURN 



qPRT 


57 

500 

58 

510 

59 

520 

60 

530 

61 


62 



WRITE(6,510)MFLN 

FCRKAT<//» INCCKRECT KCOIFY F L N C T 1 ON * , 1 7 ) 

WRITE{6,53Q) 

FORMAK’ REQUEST TO MODIFY DATA CEMEC*//) 

RETURN 

END 


,S SMEDEP.MCYR(Q) 


CO 

-d 



SPEDEPoHOYR (0) 

SUBROUTINE MDYR tITT,I« ,ID ,IY) 

C INPUT.. ITT=DAYl 1/1/73=1,12/30/72=-! 


THIS ROUTINE RETURNS 
IY=INTE6ER YEAR. 

THIS ROUTINE RILL 


ETC.) 


IK=ALPHA MONTH, 1C=INTEGER 
GENERATE DATES FROM I960 ON 


6 


DIMENSION MI12),I 

7 


DATA M/31,28,31, 

8 


DATA HA/»JAN 

9 


1 ».;ULY*,*AU6 »,* 

10 


IT = ITT ♦ 4749 

11 


I = IT / 1461 

12 


IL = IT - (I ♦ 1 

13 


12 = 366 

19 


DO 1C 11 = 1,4 

15 


111 = 11 

IG 


ID = IL 

17 


IL = IL - 12 

18 


1F(IL .LE. Q) GO 

19 


12 = 365 

.20 

1C 

CONTINUE 

21 

C FIND YEAR 

22 

15 

lY = (1*4) + 111 

23 

C FIND MONTH 

24 


K{2) = 28 

25 


IL = lY / 4 

26 


IFCIY cEG. (IL*4 

27 


DO 20 I = 1,12 

28 


11 = I 

29 


IL = IC 

30 


ID = IC - H(I) 

31 


IFdC .LE. 0) GO 

32 

2C 

CONTINUE 

33 

25 

IK = MA(ll) 

34 


ID = IL 

35 


RETURN 

36 


ENC 

aPRT,S 

SKE0EP.RSUH2 (0 1 


*,*HAR 


»,»AFR 
*, *NOV 


* , AY 


1959 


HI2) = 


05 

00 



DB6-GQ3432*SME0EPo 

RSUM2<C J 

1 



SUBROUTINE RSLH2 

2 



COKMCK/PLOTS/ XK85>,Y(85), >11(65), YL(85»,yC(8S),YCEV(8S), 

3 


a 

' YDSQ(5),H(3,3),T(3),S{12),«ME«N(3), 

4 


* 

A,Al,E,Bl5C,Cl,AH,BH,CH,AN,AM,AN2,SBIFTX,SHIFTY, 

IEQ,MV,NP,IERR,ISOLVe,NOT£,IFUNC,CELX,N,IXXY,IRR,IRI,JYES 

5 



6 



CO MM CN/PLTI/XXZ (170) ,X 22(100) ,SMY,YHI,NG 

SUBROUTINE FCF ORDERING DATA AND OBTAINING VARIOUS SUMS AND 

7 

C 


8 

C 


SSTANDARO DEVIATIONS OF INPUT DATA 

9 

C 



10 

C 


CLEAR COMMON BLOCK 

11 

C 



12 



IS0LV£=0 

13 



N'CTE::Q 

14 



IERR=0 

15 



NG = 50 

16 



00 1 1 = 171, 55 ( 

17 


1 

XI (I)=G. 

18 

C 



19 

C 

♦ >» 

FIND TFE SMALLEST V 

20 

C 



21 



YHI=Y( 1) 

22 



SNY=Y (1) 

23 



DO 3 J=2,N 

24 



IF(SHY.LE.Y(.,) ) GOTO 3 

25 



SMY=Y ( ^ ) 

26 


3 

CONTINUE 

27 



DO 33 ^=2,N 

28 



IF(YhIoGE.Y(^>) GOTO 33 

29 



YHI=Y(J) 

30 


33 

CONTINUE 

31 

c 



32 



IF ISMYoGT.O.C ) 60 TO 5 

33 



SH3FTY=(1.0~SMY) 

34 

c 



35 

c 


SHIFTING THE Y-AXIS 

36 

c 



37 



DO 4 K=1,N 

38 



Y(K)=Y(K)+SHIFTY 

39 


4 

CONTINUE 

40 



GO TO 6 

41 


5 

SHIFTY=0.0 

42 

c 



43 

c 


ORDER THE DATA FROM LOU TO HIGH VALUES OF X. 

44 


6 

NK=N-1 

45 



00 9 1 = 1, NK 

46 



IN=I»1 

47 



DO 8 J=IN,N 

48 



IF(Xim.LE*>l(^)) GCTC 8 

49 



TEMP=X1 (I) 

50 



X1(I)=X1(U) 

51 



XI (J) = T£MP 

52 



TEMP=Y(I) M 

Y(I)=Y(J) 

53 



54 



Y (v)=TEMP 

■ 55 


8 

CONTINUE 

56 


9 

CONTINUE 



57 

c 



58 



DO 132 1=1,85 

59 



xxznnxici) 

60 



XXZ(85*H=Y(I ) 

61 

c 


WRITE(6,577)XX2(I),XXZ{85+I» 

62 

C577 

FORHATUH , 2 ( F 1 D , 5 , 5 X ) ) 

63 

132 

CONTINUE 

64 



iF<xi( n .GT.o.oieo to ii 

65 



ShIFTXr( l.C-Xl (1 ) ) 

66 

C 



67 

C 


SHIFTING THE X-AXIS 

68 

C 



69 



DO 10 K=1,N 

70 



XUK) = X1 (K)+SHFTX 

71 


1C 

CCMIME 

72 



60 TO 12 

73 


11 

SHIF7X=DoD 

74 

C 



75 


12 

NIV = 1 

76 



NP = 2 

77 



IF (IEQ.EQ.2.CR.IEQ .EC.4 1 NF = NP + 1 

78 



AN=FL0AT (N) 

79 

C 



80 

C 


OBTAIN VARIOUS SUMS OF INPUT DATA, 

81 



00 13 1=1, N 

82 



YLCI» = ALOG(Y(in 

83 



XIL(I) = ALOG tXl (11 ) 

84 



xiso = xi(i) * xnii 

85 



S(i» = Sd) ^ YU) 

86 



S(2I = S (2) + XI (1) 

87 



S(31 = S(3) ♦ XISQ 

88 



S( 4) r S( 41 + (X1(I) ^ Y(in 

89 



IF (lEC .EQ. 1) GO TO 13 

90 



S( 5) r S( 51 + YUI> 

91 



S( 6) = S( 6) ♦ XIL(I) 

92 



S( 7) = S( 7) + 1X1(1) ♦ YL(I)» 

93 



IF (lEC .NE. 2) GO 7C 13 

94 



S( 8) : S( 8) ♦ (XIL(I) 9 XlL(D) 

95 



S( 9) = S( 9) ♦ (XISQ XKI) ) 

96 



S( 10) = SUO) + (XISQ « XISQ) 

97 



S(ll) : S(ll ) + (XISQ » Y(D) 

98 


13 

CCMIME 

99 

C 



100 

C 


CALCULATE MEANS OF INPUT DATA. 

101 



DO 14 „=1,2 

102 



VMEAN(J)=S(J)yAN 

103 


14 

CONTINUE 

104 

C 


CALCULATE SUMS OF THE INPUT DATA ABCLT THEIR MEANS 

105 



DO IS K=1,N 

106 



S(12) = S(12)-MV(K)-UMEAN(1I)«#2 

107 


15 

CONTINUE 

108 

C 



109 



XCIF=(>1(N)-X1{1))/NG 

no 

C 



111 



IF(IEQ.GE.1.ANC.IEQ.LE.6)G0 TO 533 

112 



WRITE (6 ,532 ) 

113 

532 

FORMATdH ,» ERROR N lEQM 



llti 



REILRN 

115 

533 

GO TC <2C,30,?0t70,7G,70),IEQ 

116 


20 

CALL LINES 

117 



XP = X1 ( 1 ) 

118 



DO 21 1=1,2 

119 



X2Z ( I) =XP-SHIFTX 

120 



XZZ«^G^I) = ^A■^E4XP»-S^■IFTY 

121 



XP=XP+XDIF«NG 

122 


21 

COMIKLE 

123 



RETURN 

124 


30 

CALL PARAS 

125 



XP=X1U) 

126 



DO. 31 1 = 1, NG 

127 



XZZ(I)=XP-SHIFTX 

128 



X2 2 < NG-»I ) = A + B*XP+C«XP*XP- SHIFTY 

129 



XP=XP+XD1F 

13Q 


31 

CCNTIKLE 

131 



RETURN 

132 

C 

40 

CALL PCWRS 

13,3 

C 


XP=X1 (1) 

134 

c 


DO 41 1=1, NG 

135 

c 


XZZ(1)=XP-SHIFTX 

136 

c 


XZZ<NG + I I = A*XF>»4B~SHFTY 

137 

c 


XP=XF+XDIF 

138 

c 

41 

CONTINLE 

139 

c 


RETURN 

140 

c 

50 

CALL ASYMS 

141 

c 


XP = X1 < 1 » 

142 

c 


DO 51 1 = 1, NG 

143 

c 


X2Z<i)=XP-SHIFTX 

144 

c 


XZZ(NG+I 1= A* XF««B*C- SHIFTY 

145 

c 


XP=XP+XDIF 

146 

c 

51 

CCNTIKLE 

147 

c 


RETURN 

148 

c 

60 

CALL EXPOS 

149 

c 


XP=X1 { 1) 

150 

c 


DO 61 1=1, NG 

151 

c 


X22(I)=XP-SHIFTX 

152 

c 


X2Z<NG-»I> = EXF(A*B«XP)-SHIFTY 

153 

c 


XP=XF+XDIF 

154 

c 

61 

CONTINLE 

155 

c 


RETURN 

156 


70 

1ERR=1 

157 



RETURN 

158 



END 


aiPRT,S SMECEP .SUMS(O) 



DB6“G03432«SHEDEP. 

sons 10 ) 


1 



SUBRCL'lIhE SLHSS 


2 



COPHCN/PLOTS/ XI (85),Y(85),XU(8S),YU8S) *YC(8S>*YCEV(85», 


3 



YOSQ CE) ,H(3,3) tT(3),S(12) tUPEAN (3) t 

A,A1 ,B,B1,C*C1,AH,BH,CH,AN,AM,AN2,SHIFTX,SMFTY, 


4 




5 


« 

IEO.NIV,NP.IERRtISOLVE»NOTE.lFUNC,CELX-,N,IXXY ,IRR,IRI,JYES 


6 

C 


SlBROtniNE FOR OROERIN£ CA7A AAC CBTAIMK6 VARIOUS SUPS AAC 


7 

C 


SSTA^CARD DEVIATIONS OF INPUT DATA 


8 

C 




9 

C 

** 

CLEAR COHHON BLOCK 


10 

c 




11 



ISOLVE=Q 


12 



KCTE=0 


13 



IERR=0 


14 

c 


WRITE(£,6789)1FUNC,N,DELX 


15 



DO 1 1=171,556 


16 


1 

XU1)=0. 


17 

c 




18 

c 

«« 

FIND TFE SKALLEST Y 


19 

c 




20 



SHY=YU J 


21 



00 3 J=2,N 


22 



IFCSKY.LE.Y(J)) GOTO 3 


23 



SHY=¥t«) 


24 


3 

CCNT3ME 


25 

c 


IFC5HY.6T.Q.0) GO TO 5 


26 




27 



SH1FTY=I1,0-<P¥) 


28 

c 




29 

c 


SHIFTING THE Y-AXIS 


30 

c 




31 



CO 4 K=1,N 


32 



YtK)=yiKl+SHIFTY 


33 


4 

COMINLE 


34 



GO TO 6 


35 


5 

SHIFTY=0*0 


36 

c 




37 

c 


ORDER THE DAT/ FROM LOk TO HIGH VALUES OF X. 


38 


6 

NK=N-1 


39 



00 9 1=1, NK 


40 



IN=I*l 


41 



DO 8 J=1N,N 


42 



lP(Xl(l).LE.XH«;n GCTG 8 


43 



TEPP=X1C1) 


44 



XUI)=X1CJ) 


45 



XifJ)=TEHP 


46 



TEMP=YII) 


47 



YtI>=Y(J> 


48 



V6v)=TEFP 


49 


8 

CCKTINLE 


50 


9 

COKTINLE 


51 

c 




52 



IF(X1I1).GT.0.0)G0 TO 11 

to 

53 



SHlFTXrtl.O-XlCin 

54 

c 




55 

c 


SHIFTING THE X-AXIS 


56 

c 






57 



DO 10 K::ltN 

58 



XI (K> = X1 (K> + SHF7X 

59 


10 

CCNTIKLE 

60 



GO TC 12 

61 


11 

SHIFTXrOoO 

62 

C 



63 


12 

NIV = 1 

6*4 



NP = 2 

65 



IF<IEQ.E0.2.CR,IEC.EC.4) NP = hP'*l 

66 



AN=FLOAT (N> 

67 

C 



68 

C 


OBTAIN VARIOUS SUMS OF INPUT DATA 

69 



DO 13 1=1, N 

70 



YL (I ) = ALOG ( Y ( I) ) 

71 



XILU) = AL06 (XI m > 

72 



XISQ = Xl(I) * Xl(I) 

73 



YSC = YSC + Y (I )=»Y (I » 

74 



S(l) = S(l» ■» Y(I) 

75 



S(2) = S(2) + XKIJ 

76 



5(3) = 5(3) ♦ XISQ 

77 



S( 4) = S( 4) + (XI (I) « YCD) 

78 



RVAL=(N=»S(4)-S(1)’»S(2) )/( (N#$(3)- 

79 



IF (lEQ .EQ. 1) 60 TO 13 

80 



S( 5) = S( 5) + YL(I) 

81 



S( 6) = S( 6) •» XIL(I) 

82 



S( 7) : S( 7) + (XI (I) ♦ YL(I) ) 

83 



IF ■ (lEC *NE. 2 J 'GO TO 13 

84 



S( 8) = SI 8) + (XILII) >» XILID) 

85 



S( 91 = S( 9 ) 4 (XISQ « XKin 

86 



SIIO) : S(1D) 4 (XISQ * XISQ) 

87 



5(11) = 5(11 ) 4 (XISQ « Y(D) 

88 


13 

CONTINUE 

89 

C 



90 

C 


CALCULATE MEANS OF INPUT DATA. 

91 



DO 14 „=1,2 

92 



VMEAM^ )=S (J ) 

93 


14 

CONTINUE 

94 

C 


CALCULATE SUMS OF THE INPUT DATA 

95 

96 



DO 15 K=1,N 

S(12) = S(12)4( Y(K >-VMEAN(in«*2 

97 


15 

CONTINUE 

98 

C 



99 

C 



100 

CC 


WRITE (6,6789 )IFUNC,N,DELX 

IDl 

6789 

FORMATdH , IMS, 215, FID. 4) 

102 



60 TO 120,30,70,70,70,701, lEQ 

103 

C 



104 

C 


ADDITIONAL CURVE SUPPLIED BY USER 

105 

C 


STATEMENT 70 AND FOLLOWING 

106 

C 



107 

20 


CALL LINES 

108 

C 



109 

c 


PRINT CUT THE GENERATEC POINTS AT 

lie 

c 



111 



WRITE(6,971 

112 



DO 21 1=1, N 

113 



YNEW=A4B«X1 ( I ) 


03 



11^1 

115 

116 

117 

118 

119 

120 
121 
122 
123 
12M 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 
16Q 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 


XKEW = X1 (I l-SUFTX 

YNEWrYNEln-SHIFTY 

kR3TE(6,98)XNEW,YNEW 

21 CONTINUE 
C 

C CALCULATE THE SHCCThEC POINTS AND PRINT THEP CUT 
C WRITE (6 ,99 ) 

C 

XP=Xl( n 
YP=A*B»XP 

XOUT = XP - SHIFTX 
YCUT = YP - SHIFTY 
C 
C 

C WRITE(6,98)X0UT,Y0UT 

XP=XP+CELX 

22 YP=A+B»XP 

XOUT = XP - SHIFTX 
YOUT = YP “ SHIFTY 
C 
C 

C WRITE(6,98)X0UT,Y0UT 

XP=XP+CELX 

IF (XF ,LT .XI (N nGO TC 22 
C IFCIXP+Q. DD05 J.lt. X ltN))GO TO 22 

YP=A4B*X1(N) 

X0UT:X1(N)-SHIFTX 
YOUT = YP - SHIFTY 
C YP = A*B*X1(NJ 

C XCLT = XP - SHIFTX 

C YOUT = YP - SHIFTY 

C 
C 

C WRITE(6«98J XOUT, YOUT 

eo TC 65 
3C CALL PARAS 
C 

C PRINT CUT THE GENERATED POINTS AT THE ORIGINAL STEP SIZE 

C 

WRITE(6,97J 
DC 31 1 = 1, N 

YNEW = A*B»X1 <I )*C«X1 (1)>»X1<I J 
XNEW = X1 (D-SHIFTX 
YNEW=YNEW-SHIFTY 
WRITE(6,98)XNEW,YNEW 
31 CONTINUE 
C 

C «♦ CALCULATE THE SMOOTHED POINTS AND PRINT THEM OUT 
C 

C WRITE(6,99) 

C 

XP = Xl ( 1 ) 

YP = A*B*XP + C*XP=»XP 
XOUT = XP - SHIFTX 
YCUT = YP “ SHIFTY 
C 
C 





171 

172 

173 

174 

175 

C 

176 

C 

177 

C 

178 

179 

C 

180 

181 

c 

182 

c 

183 

c 

184 

185 

186 
187 

c 

188 

c 

189 

c 

190 

191 

c 

192 

c 

193 

c 

194 

cc 

195 

cc 

196 

c,c 

197 

c 

198 

c 

199 

c 

200 

c 

201 

c 

202 

c 

203 

c 

204 

cc 

205 

cc 

206 

cc 

207 

c 

208 

cc 

209 

c 

210 

c 

211 

c 

212 

c 

213 

cc 

214 

cc 

215 

c 

216 

c 

217 

c 

218 

c 

219 

c 

220 

cc 

221 

cc 

222 

c 

223 

c 

224 

cc 

225 

c 

226 . 

cc 

227 

cc 


32 


l«RlTEt6,98IXCtT,Y0UT 
yPrXP + CFL X 
YP=A-»8=»XP*C«XP!4'XP 
XOUT = XP - SUFTX 
YOUT = YP - SHIFTY 


WRITE{6.98)XCIJ1,Y0UT 

XP=XP+CELX 

IF ((XP*0.0a05).LT.Xl(N})G0 TO 32 
IF(XP.LT,Xl(tV))GO TO 32 
YP = A-»B=»Xl(h)*C>»Xl(N)=iXl(N) 

XOUT = XP - SUFTX 
YOUT = YP - SHIFTY 
YP=A+B>»X1 (N>*C»X1 (N »«X 1 (N J 
XOUT=XP*SHIFTX 
YOUT = YP - SHIFTY 


kRITE(6,98) 
GO TO 85 


XOUT, YOUT 


9C 


41 


CALL PCURS 

PRINT CUT THE GENERATED POINTS AT THE ORIGINAL STEP SIZE 

WRITE(6,97) 

DO 41 1=1, N 
YNEb=A=4Xl Cl )=»=0B 
XNEH=X1 Cl )-SHIFTX 
YNEW=YNEW-SHIFTY 
URITEC6,98)XNEH,YNEW 
CONTINUE 

CALCULATE THE SMOOTHED POINTS AND PRINT THEM OUT 

URITEC6,99) 

XP=X1C1) 

YP=A4XF*>>B 

XOUT = XP - SHIFTX 

YOUT = YP - SHIFTY 


bRITEC6,98)X0UT,Y0UT 
XP = XP-»CELX 
42 YP=A>»XF=*>»B 

XOUT : XP - SHIFTX 
YOUT = YP - SHIFTY 


V.RITEC6,981XCLT,YCLT 

XP=XP*CELX 

IFCCXP-»Q,OOD5).LT.X1CNI)GO TO 42 
IFCXPoLT.XlCN))GO TO 42 
YP=A=C^X1 CN 

XOUT = XP - SHIFTX 


tn 



228 

CC 


YOUT = YP - ShIFTY 




229 

C 


YP:A*X1 (N)#*e 




230 

C 


XCUTrXl (N)-SPIFTX 




231 

C 


YOUT = YP - SHIFTY 




232 

CC 






233 

CC 






234 

CC 


bfRlTE<6,98> XOtT.YOUT 
GO TO 85 




235 

c 





236 

CC 






237 

c 

50 

CALL ASYMS 




238 

CC 






239 

CC^»44 

PRINT COT THE GENERATEC POINTS AT 

THE 

ORIGINAL 

STEF 

240 

CC 






241 

c 


URITE 16,97) 




242 

243 

c 

c 


DO 51 1=1. N 
YNEW=A«X1(I)*«B+C 




244 

c 


XNEW = Xim'SF,IFTX 




246 

c 


YNEW=YNEW-SHIFTV 




246 

247 

c 

c 

51 

WRITE(6,98)XNEW,YNEW 

CONTINUE 




246 

CC 






249 

cc=>« 

CALCULATE THE SPCOTHED POINTS AND 

PRINT 

THEN OUT 


250 

CC 






251 

C 


WRITEC6,99I 




252 

CC 






253 

c 


XP=X1 (1) 




254 

C 


yp=a«xf««b+c 




255 

C 


XOLT = XP - SFIFTX 




256 

c 


YOUT = YP - SHIFTY 




257 

CC 






258 

CC 






259 

C 


WRIT£(6,9B)X0UT,Y0UT 




260 

c 


XP=XP+CELX 




261 

c 

52 

YPzA=*XF>»=»B^C 




262 

c 


XOIT = XP - SHIFTX 




263 

c 


YOUT = YP - SHIFTY 




264 

CC 






265 

CC 






266 

c 


WRITE(6,98)XOUT,YOUT 




267 

c 


XP = XF-»CELX 




268 

CC 


lF<(XP+QaOOD5).LToXl«N))GO TO 52 




269 

C 


IF IXP.LT.Xl <N ) >G0 TO 52 




270 

CC 


YP=A*X1 (N)»«B-»C 




271 

CC 


XOUT = XP - SHIFTX 




272 

CC 


YOUT = YP - SHIFTY 




273 

c 


YP = A=*X1 {N)««B+C 




274 

c 


X0UT=X1CK)-SHIFTX 




275 

C 


YOUT : YP - SHIFTY 




276 

CC 






277 

CC 






278 

CC 


faRITEI£,98) >CUT,YCLT 




279 

c 


GO TO 85 




280 

CC 






281 

c 

6C 

CALL EXPOS 




282 

CC 



’ 



283 

CC»«>*> 

PRINT CUT THE GENERATED POINTS AT 

THE 

ORIGINAL 

STEP 

284 

CC 







o 



285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 


C fc)RIT£«6,97> 

C DO 61 1 = 1, N 

C YNEW=EXP (A + B*X1 (I) ) 

C XNEW=Xl(I)-ShIFTX 

C YNEHzYAEW-SHIf TY 

C WRITE(6,98)XNEW»YNEW 

C 61 COKTINIE 

cc 

CC#« CALCULATE THE SMOOTHED POINTS AND PRIM THEM CUT 
CC 

C URITEC6*99» 

CC 

C XP=X1(1» 

C YP=EXP (A + B=4<XP > 

C XOUT = XP -■ SHIFTX 

C YOUT = YP - SUFTY 

CC 
CC 

C WRITE(6»98)XCLTtY0UT 

C XP=XP*DELX 

C 62 YP=EXP(A+B«XP) 

C XCLT = XP - SHIFTX 

C YOUT - YP - SHIFTY 

CC 
CC 

C klRITEC6,98)X0UT,Y0UT 

C XPiXP+CELX 

CC IF((XF*C«.ODOS)«,LT<»X1CM>GC TO 62 

C IF iXP.LT.Xl(M)60 TO 62 

CC YP=EXP (A+B*X1IN) ) 

CC XOUT = XP - SHIFTX 

CC YOUT = YP - SUFTY 

C YP=EXP IA+B*X1CN) ) 

C XOUT = XHM-SHIFTX 

C YOUT = YP - SUFTY 

CC 
CC 

CC URITEI6,98J XOUT, YOUT 

C ec TC 85 

C 

C ADDITIONAL CURVE SUPPLIED BY USER CAN BE INSERTED HERE 

C 

70 IERR=1 
RETURN 
C 

85 CALL PRINT 

IFaFUNC,GE.3)G0 TO 12C 

ArA4B*SHlFTX-»C*SHIFTX#SHIFTX 

8=B+2«C*SHIFTX#*2 

12C URITE{6,111> SHIFTX,SHIFTY,CELX,A ,E ,C 

97 F0RMAT<*0»,I2X,»THE GENERATED POINTS AT THE ORIGINAL*, 

STEP SI2E ARE*//22X,’X*,13X,’YM 

98 FCRM.ATt* » , 1 2 X ,2F 14 . 5 > 

99 F0RMAT(*0**12X,*THE GENERATED POINTS AT THE GIVEN*, 

STEP SIZE ARE*//22X,*X*,I3X,*Y*) 

111 FCRMAT(»C*,12X, ’SHIFTX*, 7X, ’SHIFTY*, 4X,»DELX*,6X,*A»,1CX, 
#*B*,I0X,*C*/*C*,10X,6F10.4J 


-4 



342 

343 


RETURN 

END 


aPRTfS SMECEP.PRIN(C) 



D8 6-G0 3432#SHEDEP.PRIN (0 ) 

1 SUBROUTINE PRINT 

2 CCPMCN/PLOTS/ X 1 ( 8 5 > , Y (8 5 » f X 1 L ( 8 5 > , V L ( 8 5 ) » V C ( 8 S 1 » YC E V (fi 5 ) , 

3 * YOSQ(SJ ,H(3,3I,T(3>»SU2)»YHEAM3), 

4 ♦ A»Al,EtBl,C«Cl AN, AMvAN2.ShlFTX, SHIFTY, 

5 « lEQ, MV ,NP,IERR,ISOLWE ,NOTE ,IFUNC ,CELX ,N,IXXY ,IRR,IRI, JYES 

6 C 

7 C 

8 IF C1FUNC*NE»0 ) GOTO 2 

9 iFUNCriEQ 

10 2 GO TO (2C,‘»0,€C,aO,lCC),lEQ 

11 20 WRIT£(6,30} 

12 30 FORMAT (IHO/, UX , 59HLINEAR REGRESSION -- Y = A + ( B « X 1 ) ♦ I C >» 

13 8 X2> (C >> X2 ) /) 

RETURN 

15 40 WRITE 16,50) 

16 50 F0RMAT<1H0/,15X, 52HPARAB0LIC REGRESSION — Y = A ♦ < B >» X ) + 

17 £ (C => X*«2J /) 

18 RETURN 

19 60 URITE(6,7D) 

20 70 FORMAT (1H0/,15X, 55HP0WER REGRESSION -- Y = A « (X1«’»BT =♦ <X2>»>>C) 

21 £ ♦ (X3>#»D> /} 

22 RETURN 

23 80 WRlTE(et9G) 

24 90 FORMAT (1HG/,15X, 5 IH A S YMPTOT IC -F C WE R REGRESSION -- Y = (A * <X4«B 

25 £) ) + C /) 

26 RETURN 

27 100 WRITE 16,110) 

28 110 FORMATUHO/, 15X, 46HEXP0NEM I AL REGRESSION — Y = EXFCA ■» 

29 £ (B * X » ) / ) 

30 RETURN 

31 ENC 


SPRT,S SMEOEP oBUILO (0 » 







CB6*603‘f32»Sf<EDEF 

1 

2 

3 • 

4 

5 

6 

7 

8 
9 

1C 

11 

12 

13 

14 

15 

16 

17 98 

18 988 

19 97 

20 
21 
22 

23 

24 . , 

25 /c ; 

26 ( cy 

27 

28 ,D 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 99 

46 

47 

48 

49 87 

50 86 

51 

52 

53 84 

54 83 

55 82 

56 


• BOILC (C ) 

SUBROUTINE BUILD 

COMMON/ABUF/IF ,IFD bISIF,IFETCUCC, 9 ) ,GCT (5CC,3) ,IENC» lENCG 
C0MM0N/BBUF/RREC(180) ,V(160) fVSLOP (261) ,10(60) 

COHM ON /PLOTS/ Xl(85),Y(85),XlL(8S),VL(e5),YC(85),YCEV(85), 

(;rnara(<i6 ) , 

* lEQ^NIVaNPsIERR , ISOLVE.no TE ,ITP ,DELX ,NM , lY , IRR , IR I , J YES 
C0HMCN/PLTI/XXZa7G),XZ2UC0),RXX«2),NG 
CQMMON/NAMS/IDX,IDY ,1Z22,MNV,MNC 
COHMON/MP/ICO 

Dlf-ENSICN XAF/«85),YARA(85),YAR1(8E),..XT(8£),.;YT{8E) 

DIMENSION BCICC) 

DATA JYES/*Y */ 

NG = 5D 
0E.LX = 1, 

CALL NEUPAG 
WRITEI6.98) 

FORMAT(» *,»DC YOU WISH INSTRUCTIONS?*) 

READ (5,97, ERR = 988)INS 
F0RMAT(A4) 

IF(INS.NEoJYES)GO TO 96 
WRITE (6,95) 

95 FCRMAK* *,*THS COMMAND ALLOWS THE USER TO PERFORM TPE *, 

£/* FOLLOWING FUNCTIONS UPON THE DATA*/? 1 IGNORE DATA POINTS*,/ 
$* 2 LINEAR REGRESSION* ,/• 3 PARABOLIC REGRESSION*,/ 

S* 4 PO.WER REGRESSION*, /» 5 ASYMPTOTIC-POWER REGRESSION*,/ 

$» 6 EXPCNENTI/L REGRESSION*,/* 7 TEST OF SIGNIFICANCE BETWEEN* 
5* 7 TEST OF SIGNIFICANCE BETWEEN MEANS*, 

6" MEANS’,/* 8 AUTO CORRELATON £ CROSS CORRELATION ANALYSIS’,/ 
£/• 9 STOP*) 

CONTINUE 
WRITE(6,94) 

FORMATC *//• SPECIFY BUILD FUNGTICN*) 

REA0(S,993,ERR=93)IFUN 
FORMATIIl) 

IF(IFUN.LT.1,0R.IFUN.GT.9)G0 TO 96 
IFTEST:IFUN-3 

GO TC (92,91,91,91,91,91,9C,89,lin,IFLN 
CALL IGNORE - 
GO TC 96 
ITP=1FUN-1 

IF(ITP.LE.2)6C TO 99 
WRITE(6j477) 


96 

94 

93 

993 


92 

91 


477 FORMAK* ERROF IN BUILD FUNCTION TRY AGAIN*) 

GO TO 93 
IEQ=1TP 
IC0 = 0 
INF6=1 
WRITE (6,87) 

FORMAT(* DO YCU WISH TC USE TIME AS THE IN'CEPENDENT W^R?*) 
READ(5,97,ERR=86)IY 
IFdY.NE.JYESlGQ TO 85 
WRITE(6,84) 

FORMATC INPLT ICEN (A6)*) 

READ (5,82. ERR = 83 )IDNT 
FORMAT IA6 ) 

DO 15 I = 1,IF 


oi 

o 



57 

58 

59 

15 

60 

9 

61 

16 

62 

20 

63 

64 

65 

66 

1,9 91 

67 

68 

69 

70 

71 

72 

73 

C 

74 

C 786 

75 

76 

81 

77 

IDOC 

78 

79 


80 

81 


82 

C 

83 

788 

84 

85 

86 


87 

288 

68 

88 

89 

90 

91 

754 

92 

93 

1999 

94 

1099 

95 

96 

97 

1008 

98 

99 
100 
101 
102 

103 

104 

105 

106 
107 


108 

109 

110 

1010 

111 

1101 

112 

113 

1111 


IRR = I 

IF (IFE1C 11,2 » .EQ« IDNT) GO TO 2C 
COMINLE 

kRlTE(fc,16) ICM ^ 

FORMAK* DO NOT RECOGNIZE »,A6,*, TRY AGAIN.* 

CONTINUE 

IR = lFETCtlRR,8 } 

NM:IFETC CIRR,9) 

WRIT£|6,1991 ) , 

FORMAK* DO YOU WISH COMPLETE TABULAR OUTPUT 
READ t5,971INS 
IF {INS.NE.JYES )GO TO 1000 
DO 81 1=1, NH 

CALL TIMPRTIGCTCIR,! J ,KD1 ,NH,LM,NS ) 

XNCI=NCI 

CALL PL0T(XNDI,60T (1R,2) ,ITP) 
WRITE(6,788)NM,XNDI,G0T(IR,2) 

FCRMAT(* *,I5,2F12,5) 

IR=GCT(IR,3> 

continue 

CONTINUE 
DO 88 1=1, NM 

CALL T3HPRTC6CT UR , 1 ) ,NDI ,NH,LM ,NS ) 

XI tl ) = NDI 
Y(IJ=GCT(IR,2) 

WRIT£<6,788>NM,XN0I,G0T (IR,2I 
FORMAT!* *,I5,2F12.5) 

IF (COT (IR,3 ) .GT.O o ) GC TO 288 
IR=IR-»1 
GO TO £8 
IRrGCT <IR,3> 

CONTINUE 
CALL RSUH2 
CO 754 1 = 1 , NG 
X2ZII) = X2Z1I»=»1440, 

NNV= (MNV-»2)/2 
yRIT£(6,IG99)NNU 

FORMAT!* NAME OF NEW VARIABLE IN L0C*,F4.0,/* 
READ (5 ,82 )MCN 
DO ICOa 1 = 1, IF 

IF!IFETC!I,2».EQ.NICN>60 TO IDID 
IFX=IF+1 

IF!IFX.GT.IEN0)G0 TO 1111 
IF=IF*1 

IFETC !1F ,l) = kNV 
IFETCUF,2) = MDN 
IFETC (IF, 6)=16 
IFETC!IF,7)=XZ2(1>#60 
IFETC(1F,8I=XZZ(NGI«6C 
IFETCUF,9) = NE 

IF(ITP.EQ.l) IFETCdF ,8 ) = XZZ (2 )>»60 
IFdTP.EO.DIFETCdF ,9 )=2 
GO TO 1110 
WRITE!6,1101 ) 

FORMAT!* CLPLICATE ICENS TRY AGAIN*) 

60 TC 1999 
WR1TE(6,1112) 


) 


?♦) 


IDEN* ) 



1112 FORMAK* FETCH ARRAY FULL MUST DO A SCRCH*) 

CALL RETREV 

me IF (M^V.LE.O)eC TC ICCl 
REUIND 16 
REVJIND 18 

IF (IFETC(IF,9).GT.MNC)MWF=1 

WRITE (16IWNV 

READ <18 )WNV 

DC 1C02 HM=1,MNC 

READ (18MB<I ) ,1 = 1 ,MRV) 

URITE<16HB(I),I=1,MNV),XZ2(MM),X2Z(MM+NG) 

C WRITE(6,767} <E<I),I:i,MNV),XZZ(MMI,XZZ{MM+NG) 

C767 FORHATUH ,6F10.1» 

1G02 CO^TI^LE 

IF (NWF.NE.DGC TO 7471 
MNCO = IFETC<IF ,9 )-MNC 
DO 474 IM=1,MNCD 

4 74 WRITE<16MB{I),I = 1,MNV>,X2Z(MI“),XZZ(MM + N6) 
MNC=IFETC<IF,9) 

HWF = C 

7471 CONTINUE 

ENOFILE 16 

REWIND 16 

REWIND 18 

WN V= <MNV-»2 )/2 

WRITE (18)WNV 

READ (16 >WNV 

MNV=MNV+2 

DO 1003 MM=1,MNC 

READ (16 > (B <I ) ,1 = 1 ,MNV ) 

WRITE(18HB(1),I = 1,MNV) 

1CD3 CONTINUE 

ENDFILE 18 
GO TO 1005 

ICOl MNC = IFETC (IF ,9 > 

MNV = 2 
WNV=HNV/2 

URITE(181WNV ,kNV,WNV,WNV 

WRlTE(16)WNV,kNV,UNV,WNV 

DC 1G04 1 = 1, MNC 

WRITE <16 )X2Z ( n ,XZZ(I4NG) 

C WRITE(e,765)XZ2(I»,X2Z(I+N’GI 

0765 FORKATC X»,6F10«1» 

1004 WRITE(18)XZZ(I) ,XZ2(I+NG) 

ENDFILE 16 
ENDFILE 18 
1GD5 CONTINUE 
REWIND 16 
REWIND 18 
GO TC 96 
85 IDFG=0 

WRIT£<e,10C> 

IOC FORMAT (IX, *VAR 1*,5X,»VAR 2 ♦ , / 1 X , * ID E N * , 2 X , » IDEN » ) 
102 READ (5,1D1,ERF=1D2)IDX,IDY 
101 F0RMAT(2A6> 

104 IONT=ICX 

IF(ILFG.EQ.l)ICNT=ItY 


c;i 


N 



ICNT) GO TO 103 


171 


IRI=IRR 

172 


DC 17 I = 1,IF 

173 


IRR = I 

17^» 


IF (IFE7C(I,2> .EC* ICNT) GO TO 103 

175 

17 

COMIME 

176 


KRITEie,16) IDM 

177 


GO TO 85 

178 

103 

COMIME 

179 


I0F6=IDF6+1 

180 


IF (ICFG.EQ.l)EO TO 104 

181 


IR)( = IFETC(IRI,8 ) 

182 


IRY=IFETC(IRR ,8) 
NXMFETC (IRI ,9) 

183 


184 


NY=IFETC <IRR ,9 > 

185 

186 


DO 1Q7 1=1, NX 

CALL T1FPRTI6(TCIRX,1),NDIX,NH,LF,KS) 

187 


JXT(I)=NDIX 

188 


XARA (I >:G0T(IRX,2> 

189 


IF (GOT ( IRX, 3 ) .6T.G . ) 60 TO 113 

190 


IRX=IRX+1 

191 


GO TC 107 

192 

113 

IRX = GOT aRX,3 ) 

193 

107 

CONTINUE 

194 

195 


DO 109 1=1, NY 

CALL TIMPRT(GCTIIRY,1 ) ,NDIY,NH,LM ,NS) 

196 


JYT (I )=NDIY 

197 


YARl JI > = GOT (IRY,2 ) 

IF t60T(IRY*3}.GT,0.» GO TO 114 

198 


199 


IRY=IRY*1 

200 


60 TO 109 

201 

114 

IRY = G0T(IRY,3 > 

202 

109 

CCNTINLE 

203 


IF UNFG.6T.3.CR.INFG.LT.1 7URITE (6,6 66 >INFG 

204 

666 

FORHAT(» BUIL 96 1NFG=»,I5) 

205 


60 T0C125,12C,122>,INFG 

206 

C 

IF (INFG.EQ.2 )G0 TO 120 

207 

125 

MM = l 

208 


DO 1C5 1=1, NX 

209 


DO 1C5 J=1,NY 

IF(JXT(I).EQ,»iYT{J))GO TO 1C6 

210 


211 


60 TO IQS 

212 

106 

XARA (MF)=XARA (I» 

213 


YARA (FIF 1=YAR1 «*. ) 

214 


HM=MM+1 

215 

105 

coktinle 

216 


NM=MK-1 

217 


DO 108 1=1, NF 

218 


CALL PLCT(XAfii(l),YARA(I),ITP) 

219 

108 

CONTIME 

220 


60 TC 96 

221 

90 

1NF6=2 

222 


60 TO 85 

223 

120 

CONTINUE 

224 


CAV=C. 

225 


INFG=1 

226 


CALL SI6DHNIXARA,NX,YAR1,NY,DAV,U1,S1,U2,S2,T,£TA,NDFI 
WRITE(6,121UCX,1DY,U1,U2,S1,S2,T,ETA,NDF 

227 




228 

121 

FORMAT!* »,5X ,A6»1DX,A6,/2X* H E A^ = * , F 7 . 2 , 9 X , • R E A N = * t F T . 

2,5X, 

229 


$/3X,» S0 = * ,F7.2 ,11X , *SC = * ,F7.2,/' T S T A T IS TIC= ♦ , F 5 . 2 , 4 X 

9 

230 


e*WITh probability:* ,F7.5,/* DEGREES CF FREEDOM: * ,12 ) 


231 


GO TO 96 


232 

C 89 

WRITE(6,158) 


233 

C 158 

FORMAT!* THIS FUNCTION IS NOT BUILT YET*} 


234 

89 

INFG:3 


235 


GO TO 85 


236 

122 

CONTINUE 


237 


DAV=Q. 


238 


INFG:1 


239 


CALL SIGCMN(XARA,NX,YARl,Ny,DAV,Ul,Sl,L2,S2,T,ETA,NCF) 


240 


WRITE(6,123)ICX ,1DY,T,ETA,NDF 

FORMAT l*D* ,2CX, »T STATISTIC BETWEEN F E A NS * , / , 5X , ’ ( * , 
£A6,*),(*,A6,*) * ,5X, *T:* ,F5.2,2X, »PR0B:* ,F7 .5 ,2X, *NDF: • , 


241 

123 


242 


12) 

243 


GO TO 96 


244 

111 

LFLAG:S9 


245 


CALL RETREV(LFLAG > 


246 


RETURN 


247 


END 


aPRT.S 

SMEDEP*IGNORE(D» 



Ol 



CB6-GD3432«SKEDEF. 

1 


IGNORE <C I 
SUBROUTINE IGNORE 


3 


DIMENSION IIN(16> ,R<4,4) 

4 


DATA IEOC/*eC */,IELK/» */ 

5 


CALL NEhPAG 

6 


WRITEt6 ,10) 

FORMAK* INPUT IDEN AND UP TO 4 TIMES OF DATA 

7 

1C 

8 


1 /♦ INPUT 60 WHEN FINISHED I6N0R INPUT.*/ 

9 


2 • IDEN *,4(’ DAY HR MN SE * J ) 

10 

11 

REA0(S,12,ERR:9) I2,(IIN(I),I=1,16) 

11 

12 

12 

F0RMAT(A6,4(2X,A5,A2,1X,A2,1X,A2)) 
IF(I2 .EQ. IGCO) RETURN 

13 


DO 15 I = 1,IF 

14 


IRR = I 

15 


IF <IFETC (1,2 ) .EQ. 12) GO TO 2C 

16 

15 

continue 

17 

9 

WRITE<6.16) 12 

FORMAT!* DO NOT RECOGNIZE *,A6,*. TRY AGAIN.*) 

18 

16 

19 


GO TO 11 

20 

20 

IF (IFETC <IRR ,6 ) .LE. 12) GO TO 23 

21 


bRITEI6,22) 

22 

22 

FORMAT!* IGNOR ILLEGAL FOR DATA FROM MODELS.*) 

23 


GO TC 11 

24 

23 

DECODE !96,25,IIN!1),I1) !!R!I2,I3),I2=1,4),I3= 

25 

25 

F0RMAT!4!F5.C,1X,3!F2.C,4X))) 

26 

C 


27 


DO 4C I = 1,4 

28 


13 = ! !l - 1 1 « 4) + 1 

29 


14 = 13 ♦ 3 

30 


DO ICO 12 = 13,14 

31 


IF(IIN!I2> .NE. IBLK) GO TO 102 

32 

IQC 

CONTINUE 

33 


GO TC 11 

34 

102 

T = !R (1,I)#144C. ) * !R!2,I)#6C.) + R!3,I) ♦ 

35 


1 !R!4, 11/60.) 

36 


INC = 1FETC!IRR,9) 

37 


IG = IFETC!lRfi,8) 

38 


160 = IG 

39 

29 

X = A8S(G0T(IG,1) “ T) 

40 


IF(X .LT. .02) 60 TO 30 

41 


IF!60T!IG,n .GT, T) GO TC 105 

42 


IGC = IG 

43 


16 = GCT!I6,3) 

44 


INO = IND - 1 

45 


IF (IND .GT. Cl GO TO 29 

46 

105 

WRITE!6,32) ( R ( J , I ) , J= 1 ,4 ) 

FORMAT!* NO DATA ASSOCIATED WITH * , F 6 .C , * C * , FS 

47 

32 

48 


1 F5.C,*M*,F5.C,*S*) 

49 


GO TC 40 

50 

3C 

IFETC1IRR.9) r IFETCiIRR,9) - 1 
IF!IFETC!IRR,9) .GT. 0) GO TO 33 

51 


52 


IFETC!IRR,8) = -268435456 

53 


60 TC 38 

54 

33 

IF!IG0 .EQ. 16) IFETC(IRR,8) = G0TIIG,3) 

55 


IFIIGO .NE. IG) G0TCIG0,3) = GCT(I6,3) 

56 

38 

G0T(1G,1) = -999990C. 


cn 

Oi 



57 

58 

59 


lie CCNTINLE 
60 TC 11 
END 


aPRT»S SMECEP.TPLKQl 


cn 

a> 



DB6-G0 3‘»3 2»S«ECEF.TPLT to ) 


1 

2 

3 

<i 

5 

6 

7 

8 
9 

ID 

11 

12 


C 

CC 


SUBROUTINE PL C T ( X IN , Y IN , I T Y PE ) 

CONMCN/PLOTS/ Xl(85)tY«85),XlL(85l,YH85)tYC(8SJ#YCEV<85)t 
♦ YDSQ(5 J ,H<3,3) ,T(3) ,S (12) ,VHEAN(3J , 

« A,A1, B, Bl, C, Cl, AH, AN, AM, AN2.su FTX, SHIFTY, 

« IEQ,MV ,NP ,IERR tlSCLVE ,NCTE .IFLNC.CELX ,.N,IXXY ,IRR ,IRI,UYES 

COMMON/MP/ICC 


WRITEC6,6789)IFUNC,N,DELX 
6789 FORMATUH ,215, FID. 4) 
CELX-1 . 

IEC=IFLNC 


13 

14 

15 

16 
17 
1'8 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 


IF (IFUNC.N'E.C) GOTO 2 
IF(N.EQoC) GCTO 1 
WRITE(6,444) N,IEQ 

444 FCRNAH* *,12>,*TEST 0F’,I4,» PCIMS CN CURVE*, 14) 
WRITEI6,555) 

555 F0RNAT(*0*,12X,»THE ORIGINAL GIVEN PCINTS ARE*//22X, 

# • X * , 1 3 X , * Y M 

UR ITE (6,666) (X1(I),Y(I),I=1,N) 

666 FORPAK* ♦ , 1 2 > ,2F14 . 5 ) 

CALL 5UMSS 
URITE(6,777) 

777 FORMAT (*0*,12X,*THE ABOVE SET IS TERMINATEC BY A ZERO*, 
IFUNC CALL*/*1*) 

C 

C IFINC = C MEFELY PASS THE PEN CCMMANC 

1 CONTINLE 

C 

C WRIT£(6,999) X IN , Y I N , I T YPE 

C 999 FORMAT (*0* ,12X, ’POINT PASSED BY A IFUNC = C CALL*//*C*, 
C *22X , *X ’ ,13X , *Y * ,4X, ’PEN C OM K AN C */ »G * , 12 X , 2 FI 4 .5 , 17/ * 1 * ) 
RETURN 
C 

2 IF(N.EC.O) 6CTC 4 

IF (lEQ.NE. IFUNC ) GOTO 6 
4 IC0=ICC*1 
XI (ICC ) = XIN 
Y( ICC)=YIN 

IF(ICO.NE.N) RETURN 
CALL PRINT 
C 
C 

WRITE (6,444)N,1E0 
WRIT£(6,555) 

UR1TE(6,666) (X1(I),Y(I),X=1,N) 

CALL SUMSS 
RETURN 

6 IFiN.EC.l) 6CTC 8 
C 

C *** NLESS THAN 5G 
C 

URITE(6,444)N,IEQ 

WRITE(6,SS5) 

yR.ITEt6.,666 )(Xl(I),Y(I),l:i,N) 

CALL SLPSS 


cn 



SPRT 


57 



kIRITE (6 »888 ) 


58 


888 

FORMAT(*0*,12X,*0NE JOB IS DONE, READY FOR 

NEXT. V/ ) 

59 



N = 1 


6G 



IEC=IFLKC 


61 



XI (1 ) = XIN 


62 



Ytl>=YlN 


63 



RETURN 


64 

C 




65 

C 


ERROR MESSAGE 


66 

C 




67 


8 

IERR=1 


68 



WRITE<6,11 ) 

FCRMAT<*0 GIVEN CNE POINT ONLY, NO CLRVE 


69 


11 

CAN BE GENERATED’! 

70 



RETURN 


71 



END 



»S SMECEP.REGRESSiO) 


CJ1 

00 



DB6-G03‘l32«SHE0EP 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 98 

17 988 

18 97 

19 7655 

20 
21 

22 95 

23 

24 

25 C 

26 C 

27 

28 96 

29 

30 94 

31 93 

32 993 

33 

34 

35 

36 

37 426 

38 

39 91 

40 

41 

42 87 

43 86 

44 

45 

46 84 

47 83 

48 82 

49 

50 

51 

52 

53 15 

54 9 

55 16 

56 


a* 

$* 

$ * 

a* 


.REGRESS (0 ) 

SUBROUTINE REGRES 

C0K^^C^yABUF/IF,IFD,ISIF»rFETC^CC,9),GC7(5CC,2),,lE^C»IE^CG 

C0MM0N/BBUF/RFEC(18C>,Ufl60»,VSLCP<261l,lD(6G) 

COHMGN/PLOTS/ Xl(85),YC85>,XlLt85>,YL(a5),TC(85),YDE\/(85>* 

* YDSQ{5),H(3,3)»T<3>,S(12)»VMEAN{3J, 

# A,A1,8,B1,C*C1,AH,BH,CH,AN,AN1 ,AN2,SHIFTX tSHIFTY, 

=♦ IEC,A]V,NP,IERR,1SCLVE,NC7E,17F,CELX,NF,IY,IRR,IRI,JYES 

COKMCN/PLTl/XXZ (170>,XZZUDD» ,RXX (2» ,N6 
COMMON/NAMS/ICX,IDY,I22Z,MNV»KNC 
DIMENSION XARA(85),YAR1C85),JXT{85),UYT{85) 

DATA JYES/*Y * / , ID A Y T / • D A YS » / , I B LK / * •/ 

N6=5C 

CALL NEWPAG 

IF(INS.NE.O) eO TO 7655 
WRITE (6 t98 } 

FORMATC’ *,*DC YOU WISH INSTRUCTIONS?’) 

READ(5,97,ERR=988)INS 
FCRM AT <A4 ) 

CONTINLE 

IFCINS.NE.JYES)60 TO 96 
WRITE(6,95) 

FORMAT!* *,’THIS COMMAND ALLOWS THE USER TO PERFORM THE *, 

6/’ FOLLOWING REGRESSION FUNCTIONS UPON THE DATA’,/ 

1 LINEAR REGRESSICN’ ,/• 2 PARABOLIC REGRESSION’,/ 

3 POWER REGRESSION’,/* 4 AS YKP TO TI C -P 0 WR E R REGRESSION*,/ 

6 EXPONENTIAL REGRESSION*,/’ 6 STOP’) 

6 STOP’) 

CONTINLE 
WRITE (6 ,94 ) 

FORMAT!’ *//’ SPECIFY REGRESSION FtNCTION’) 

READ(5,993,ERR=93)IFUN 

FORMAT 111 ) 

IF!IFUN.LT,1.0R.IFUNoGT.6)G0 TO 96 

IFTEST:lFUN-2 

IF (IFTEST.LE.C )60 TO 426 

GO TO !99,99,99,111) ,IFTEST 

IEQ=IFLN 

IF!IFUN.EQc6)G0 TO 111 

ITP=IFUN 

ICC = C 

WRITE!6,87) 

FORMAT!’ DO YOU WISH TO USE TIME AS THE INCEPENOENT VAR?’) 

READ(5,97,ERR=86)IY 

IF!IY.NE.JVES)GO TO 85 

WRITE <6,84 ) 

FORMAT!* INPUT IDEN !A6)*> 

READ 15,82,£RR = 83)IDNT 
F0RMAT!A6) 
lOYrlDNT 
DC 15 1 = 1,IF 
IRR ; I 

IF !IFETC !I,2 ) .EQ 
CONTINLE 

WRITE!6,16) lONT 
FORMAT!’ DO NOT RECOGNIZE ’ 

60 TO 83 


ICNT) GO TO 2C 


A6 


TRY AGAIN.*) 


cn 



57 


99 

WRITE(6,427) 

FORMATt* ERROR IN FUNCTION TRY AGAIN'*) 

58 


427 

59 



GO TO 93 

60 


20 

CONTINUE 

61 



IR = IFETC (IRR ,8 ) 

62 



NM=IFETC(IRR,9> 

63 

64 



00 81 Irl.NH 

CALL TIHPRT(GCTaR,l)»NDI,NH,LM,NS) 

65 



XI (I):ND1 

66 



Y (I)=60T tIR,2 ) 

bl 

C 


WRITEI6j788)NF,XN0I,6CT(IR»2) 
FORMAT!* »,I5,2F12.5» 

68 


788 

69 



IF (G0T<IR,3) .GT.O. ) 6C TO 80 

70 



IR=IR+1 

71 



GO TO 81 

72 


ac 

IR=GCTIIR,3) 

73 


81 

CONTINUE 

74 



IDXzIDAYT 

75 



CALL RSUMl 

76 

C 


DO 678 1=1, NM 

77 

C678 

NRITE(6,679)XX2<I»,XXZ(8S+1J,IRR,IR1 

78 

C679 

FCRMATUH ,2F1C.4,2IS) 

79 

C 


URIT£<e,888}X22(l),X2Z(51) 
WRITE{6,888>XZZI5a),XZZ(100) 
FORMAT!* *,2F10.5> 

80 

C 


81 

C888 

82 



CALL PL0T33 

83 



GO TC 96 ' 

84 


85 

IDFG=C 

85 



NRITE!6,100> 

86 


IOC 

F0RMAT(1X,*XAXIS*,5X,*YAXIS*,/1X,*IDEN 

87 


102 

READ !5 ,101, ERRr 102) IDX,IDY 

88 


101 

FORMAT (2A6 ) 

89 


104 

IDNT=ICX 

90 



IF! ICFG.EC.l )ICNT=IDY 

91 



IRI=IRR 

92 



DO 17 I = 1,1F 

93 



IRR = I 

94 



IF CIFETC !1,2 ) .EC. ICNT) GO TC 1C3 

95 


17 

CONTINUE 

96 



WRIT£!6,16) IDNT 
60 TC 85 

97 



98 


103 

CONTINUE 

99 



I0F6=ICFG+1 

100 



IF CICFG.EC.l JEC TC 1C4 

101 



IRX=IFETC!IRI,8) 

102 



IRY=IFETC !IRR ,8 ) 

103 



NX=IFETC !IRI,9) 

104 



NY=IFETC!1RR,9) 

105 



CO 107 1 = 1, NX 

106 



CALL TIMPRTIGCTIIRX,! > ,NDIX,NH,LM,NS ) 

107 



JXT!I)=NDIX 

108 



XARA1I»=G0T!1RX,2) 

109 



IF !60T!IRX,3).6T.Q.> GO TO 113 

110 



IRX=IRX4l 

111 



GO TC 107 

112 


113 

IRX=G0T!IRX,3) 

113 


107 

CONTINUE 



114 


DO 1C9 1=1, NY 

115 


CALL TIHPRT(6CT(IRY,l>,NCIY,NP,Lf',NS> 

116 


JYT( I}=NDIY 

117 


YAR1(I)=G0T(IRY,2> 

118 


IF (G0T(IRY,3).GT.Q.) GO TO 114 

119 


IRY=1RY*1 

12C 


GO TC 1C9 

121 

114 

IRY=607(IRY,3 1 

122 

109 

CONTINUE 

123 


MP = 1 

124 


DO 1C5 1=1, NX 

125 


DO 105 J=1,NY 

126 


IF(J/T(I).EQ.vYT<^))6C TC 106 

127 


GO TC 105 

128 

1G6 

XI ) =XARA ( I J 

129 


Y (MM ) = YARH J > 

13D 


MM = H^f♦l 

131 

105 

CONTINUE 

132 


NK=MW~1 

133 


CALL RSUKl 

134 


CALL PL0T33 

135 


GO TC 96 

136 

111 

CALL RETREV 

137 


RETURN 

138 


ENO 


oPR7,S SMEDEP.RSUMl (Q ) 



DB6-G03432«SMEDEP. 

RSUMi (0) 


1 



SUBROUTINE RSUMI 


2 



COMMON /PLOTS/ Xl(a5),Y(85),XlLt85),TU85),YC<85).VCEV(85}, 


3 


4 

YDSQ (5 ) ,H(3,3),T(3>,S(12>,VMEANn>i 


4 


* 

A,A1,E,81.C,C1,AH,BH,CH,AN,AM*AN2,SHFTX,SHIFTY, 


5 



IEQ,N3V.NP,IERR,IS0LVE,N0TEtIFUNC,DELXtN,IXXY ,IRR » IR I , JYES 


6 



C0HM0N/PLTI/XX2 1170 ),XZ2( IDO ,SHY,YH,NG,RVAl 


7 

C 


SUBROUTINE FOR ORCERINC CATA AND CETAIMNG VARIOUS SUMS ANE 


8 

C 


SSTANDARD DEVIATIONS OF INPUT DATA 


9 

c 




IQ 

c 


CLEAR COMMON BLOCK 


11 

c 




12 



ISCLVE^O 


13 



N0TE=0 


14 



I£RR=Q 


15 



N6 = 5C 


16 



DO 1 1=171,556 


17 


1 

XI 


18 

c 




19 

c 


FIND TME SMALLEST Y 


20 

c 




21 



YHI=Y(1) 


22 



SMY = Y { 1) 


23 



DO 3 0=2, N 


24 



IF (SMY.LE.YCO ) ) GOTO 3 


25 



SMY=Y (w ) 


26 


2 

CONTINUE 


27 



00 33 ^=2,N 


28 



IF (YHI.GE.Y ( 0 ) > GOTO 33 


29 



YHI=V(0) 


3Q 


33 

CONTIME 


31 

c 




32 

c 


ORDER THE DAT/! FROM LOW TO HIGH VALUES OF X, 


33 



NK=N-1 


34 



DO 9 1=1, NK 


35 



IN=I*1 


36 



DO 8 0=IN,N 


37 



IF(X1(I).LE.X1(0>) GOTO 8 


38 



TEMPxXl (I) 


39 



XI (I 1=X1 tO) 


40 



XI { J)=TEHP 


41 



TEMP = Y (11 


42 



Y ( I»=Y (0 1 


43 



Y( J)=TEMP 


44 


a 

CONTINLE 


45 


9 

CONTINUE 


46 

c 




47 



CO 132 1=1,85 


48 



XXZd )=X1 (I ) 


49 



XXZ(85-»I)=Y(I) 


50 

c 


WRITE(6,5 77 )XXZ(n,XXZ(85-»I) 


51 

C577 

FORMATdH ,2(F10.5,5Xn 


52 


132 

CONTINLE 

O 

IN3 

53 



IF (SMY.GT.O.C » GO TO 5 

54 



SHIFTY=(i.D-SMY) 


55 

C 




56 

c 


SHIFTING THE Y-AXIS 




57 

C 



58 



DO 4 K:1,N 

59 



y(K)=Y(K)4SHIFTY 

60 


4 

CCMIN’LE 

61 



GO TO 6 

62 


5 

SHIFTY=0,0 

63 

C 



64 


6 

IF(XU 1 ) .GT.C.O >60 70 11 

65 



SHIFTX=(1.0-Xl(in 

66 

C 



67 

c 


SHIFTING THE X-AXIS 

68 

c 



69 



DC 1C H=1,N 

70 



XI (t<):Xl (K )+SHFTX 

71 


10 

CONTINUE 

72 



60 TO 12 

73 


11 

SHIFTX=0*0 

m 

c 



75 


12 

MV = 1 

76 



NP=2 

77 



IF(IEQ.EQ.2.0R.IEQ.EQ.4I NPrNP^H 

78 



AN=FLOAT(N) 

79 

c 



80 

c 


OBTAIN VARIOUS SUMS CF-INPLT DATA, 

81 



00 13 3=1, N 

82 



YL(I) = AL06<Y(in 

83 



XILII) = ALOetXUI)) 

84 



xisQ = xim « xici) 

85 



YSQ=YSC+Y(I)«Y(I) 

86 



S(l> = SU) 4 Y(I> 

87 



S<2) = S«2» + XKIJ 

88 



S(3) = S(3> ♦ XISQ 

89 



S( 4> : S< 4) ♦ (XKIJ « Ydl) 

90 



RVAL=(N«S(4)-SI1)*S (2 ) )/( (N«S (3J-S (2)«S (2> )♦( N«YSQ-S ( 1 1«S ( 1 )>)««. 5 

91 

c 


hRITE(6»lDDl JRVAL 

92 

ClCOl 

FCRMAK* R=»,F1C.5> 

93 



IF (lEC .EQ. 1> GO TO 13 

94 



S( 5) = S( 5) ♦ YLIIJ 

95 



S( 6) = SC 6) ♦ XIL(I) 

96 



S( 7) = S( 7) ♦ (XKI) « YL(I) J 

97 



IF (lEC .NE. 2J 60 TO 13 

98 



S( 8> = S( 8) + (XIUIJ * X1L(I») 

99 



S( 9) = S( 9) + (XISQ * Xl(I) J 

100 



S(10> = S(10> * (XISQ « XISQ) 

101 



S(ll > = S(ll) + (XISQ * Y(D) 

102 


13 

CCMIME 

103 

c 



104 

c 


CALCULATE MEANS OF INPUT DATA. 

105 



DO 14 ., = 1,2 

106 



VMEAN ( J)=S( J) /AN 

107 


14 

CONTINUE 

108 

c 


CALCULATE SUMS CF THE INPUT DATA ABCLT THEIR MEANS. 

109 



DC 15 K=1,N 

110 



S(12) = S(12) + (Y(K)-VME AN (!))»’»■ 2 

111 


15 

CONTINUE 

112 

c 



113 



XCIF= (XI (N )-Xl U ) }y.N6 



114 

C 



115 



IF <IE^J.GE.1.A^D.IEQ.LE .6 >G0 TO 533 

116 



URITE(6,532) 

117 

532 

FORMATdH ERROR N’ lEQM 

118 



RETLfih 

119 

533 

60 TO <20«3Q»70,70,70,7Q),IEQ 

120 


20 

CALL LINES 

121 



XPrXUl ) 

122 



00 21 1 = 1, NG 

123 



XZZU )=XP-SHIFTX 

124 



X22(NG<n = (A4E*XP)-SFIFTY 

125 



XP=XP4XDIF 

126 


21 

CONTINIE 

127 



RETURN 

128 


30 

CALL PARAS 

129 



XP = Xi Cl ) 

130 



00 31 1 = 1, N6 

131 



XZZ(II=XP'SHIFTX 

132 



XZZ(NG + n=A + B=»XP + C«XP«XP -SHIFTY 

133 



XP = XP-*XDIF 

134 


31 

CCNTIME 

135 



RETURN 

136 

C 

40 

CALL PCURS 

137 

C 


XP=X1 U ) 

138 

c 


DO 41 1=1, N6 

139 

c 


XZZ(IJ=XP-SHIFTX 

140 

c 


XZ2(N6-*n = A*XF=»«B-SFIFTY 

141 

c 


XP=XP4XDIF 

142 

c 

41 

CONTINLE 

143 

c 


RETURN 

144 

c 

50 

CALL ASVMS 

145 

c 


XP = X1 Cl) 

146 

c 


DO 51 1 = 1, NG 

147 

c 


XZZCI)=XP-SHIFTX 

148 

c 


X22CNG4n:A«XF«>»B + C- SHIFTY 

149 

c 


XP=XP+XDIF 

150 

c 

51 

CCNTINLE 

151 

c 


RETURN 

152 

c 

60 

CALL EXPOS 

153 

c 


XP=X1C1) 

154 

c 


00 61 1=1, N6 

155 

c 


XZZC I)=XP-SHIFTX 

156 

c 


X2ZCNG4l)=EXP«A4B»XF)-SHIFTY 

157 

c 


XP=XP4XCIF 

158 

c 

61 

CONTINUE 

159 

c 


RETURN 

160 


70 

1ERR=1 

161 



RETURN 

162 



END 


oPRT»S SMECEP.PL0T26(C) 


a 



DSe-GDSHSZ^SMEDEPoPLOTZe (0 i 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 


SUBROlillNE PLCT26 
C0PNCN/AeUF/IF,IFC,ISIF,IFETC<lCC,9J,GC7iSCC,3I 
DIMENSION XX(17) 

COMMCN/BBUF/6 (601 ) 

DATA I60/»G0 * / » IS AH / * S AME V 

DIMENSION TSTEPX (4),TSTALP(4) 

DATA TSTEPX/.C1666667,l.,60.tl44C./ 

DATA TSTALP/ * SECS ’HINS* , ’HOUR*, »CAYSV 
C0HMCN/SEG22/lIDAS(6*2),PPARS(6t9>,TTSPT,IC(JP,N0P,I3Y 
1 ,K,RUNSTP»JFF,R1 
DIMENSION XN0(5) ,HEAC(15) 

761 CALL NEWFAG 
URITE(6,600) 

600 FORMAT!* INPUT HEADING WANTED, (15A4)») 

602 READ (5 ,601,ERR = 602 > (HE AD ( I ) » 1 = 1 1 15 > 

601 F0RHAT(15A4) 

URITE(6,61Q) 

61C FORMAT!* !IDEN = DATA ID E N , S A ME , GO ) (L = l.“6. FOR LOG.)*/ 

1 * (P,1.=STAIR PLT 1ST.PT.H0RIZ.2 . = STAIR 2ND .P T . HOR IZ , * » 
/• 3. = N0 LINES, OR PT.TO PT.PLT.)*/ 

• (X=1,F0R X SYMBOL AT EACH POINT)* 

/• ISTART/STCP LEFT BLANK MEANS*, 

• PLOT ALL TIME OF DATA)*/ 

• * ,28X,14( • . • ) , *X AXIS !TIME)’,14( *.* )/ 

• •,7i*.*),*Y AXIS*,8(*.*),7X,*.«. .START.... -...*, 

•STOP BIAS */* lOEN H IG H * , 3X , * LOW * , 


C 

C 

2 

3 
C 

4 

5 

6 




(* DAY FR MN SE* ) ) 


4X,*L P X 
NNCP = C 
KK = 1 
ISJ = C 

7 READ (5 ,6 ,ERR = 5C1 ) I 2 , ( XX ! 1 1 ) , 1 1 = 1 , 4 ) , XX ( 1 7 ) , ( XX ! 1 1 ) , 1 1 = 5 , 16 J 
6 FORMAT (A6,1X,2F7.3,2F2.0,F3.0,3 !F5.0,3F3.0 )) 

IFCKK .EQ. 1 .AND. 12 .EQ. ISAM) GC TC 10 
IFIKK .ET. 1 .AND. 12 .EG. IGC) GC TC 25 
IF(KK ,GT, 6) GC TC 728 
DC 210 J = 1,IF 
J1 = J 

IF(I2 .EG. IFETC(J,2)) GO TO 13 
21C CCNTIME 
ISJ = 1 
60 TO SOI 

13 IF IIFETC ( Jl,9 ) .LT. 2) 60 TO 5 
IF (IFETC tJl,6 ) .GT. 12) 60 TO 20 
IF CIFE TC ! J1 ,8 1 .NE. -268435456) 60 TC 20 
5 WR1TE(6,9) 12 


9 FORMAT!* ONE CR LESS DATA FOR 
GO TO 7 
20 ISJ = 2 

IF(XX(2) .GE. XX!D) GC TO 501 


,A6) 


1 s «« - ^ 

IF(XX(3) .LT. 1. .CR. XX(3) .GT. 6. 
ISv = S 

IF!XX(4) .LT. 0. .OR. XX(4) .GT. 3, 
TB = !XX (13) ♦1440. ) ■* (XX(l4)^6D.) 

1 (XX(16)/6C.) 

T1 = ! XX (5 )♦! 44C . ) •» (XX(6)*6C.) ♦ 


) GC TO 5C1 


GO TO 5D1 

XXfl5) ♦ 


XX (7 ) + 


05 



1 (XX(8)/60.) 

T2 = ( XX (9 )«m40 . > + (XX(ia»#60.J ♦ XX(ll) + 

1 (XX(12)/6Q.) 

IFHl .EC. 0. .A^C. 72 .EC. 0.) EC TC SC6 

IF(T2 .GT. Tl) 60 TC 5C6 

WRITE(6,5C3) 

503 FORMAK* ERROR IN START/STOP TIME*) 

GO TO 7 

501 URITE(6,5C2) 1S2 

502 FORMAT!* >»*ERRCR IN FLC*»I2) 

60 TO 7 

506 PPARSCKK,!) = Jl 

IF (IFIX(XX(3) ) ,6T. NNOP) NNOP = XX(3) 

PPARS{«K,3) = XXm 
PPARS(K»<,4) : XX(2) 

PPARSCKK.2) = XX(3) 

PPARS(KK»5) = TB 
PPARS!KK,6) = XX(4) 

PPARS(K5<»9) = XXU7) 

IF(T1 .NE. 0. .CR. 72 .NE. C.) 6C 70 37G 
PPARS(KK,7). = -90Q0C00. 

PPARS!KK,8) = 900QG0C. 

60 TO 271 

370 PPARS(KK,7) = 71 
PPARS(XK,8) : 72 

371 KK = KK ♦ 1 

IF(KK .LE. 6) 60 TO 7 
60 TC 728 

25 IF(XX(1) .BE. 3. .AND. XX(l) .LE. 5.) GO TO 626 
728 URITE<6,27) 

27 FORMAT!* INPUT GO N. ! A6 , 1 X , Ffi . 2 ) * ♦ 

1 * N-NC .CIVIS IONS FOR TIME.*) 

GO TC 7 

626 K = KK - 1 
NOP = NNOP 
TTSPT = XX(l) 

C CCKPUTE .LENG76 CF TIME FOR X SCALE. 

R1 = 5CDOOOO. 

R2 - -500000C. 

DO 628 C = 1,K 
11 = PFARSIJ,)) 

IF (IFE7C !I1,6 ) .LE. 12) 60 TO TOC 
C HERE IF DATA FROM A MODEL. 

IB = IFETCCIl ,6) 

51 = FL0AT!IFETC!I1»7) ) / 60. 

52 = FLOAT !IFETC (II ,8 ) ) / 60. 

51 = SI ♦ PPARS !«,5 ) 

52 = S2 ♦ PPARS(0,5) 

60 TC 701 

C 

700 12 = IFETC(I1,8) 

SI = GCT (12,1 ) ■* PPARS !J,5) 

7C1 IF (PFAfiS!J,7) .6T. -89CDC0D.) Sl= FPARS(C,7) + PPARS(v,5) 
IF ($1 .L7. R1 ) R1 = SI 
IF{IFE7C!I1,6) .GT. 12) 60 TO 702 
13 = IFETC(I1,9) 

31 IF (GCT (12 ,3 ) .67 .C. ) 6C TC 331 


03 



114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 


12 = 12+1 
GO TC 332 

331 12 = GCT(I2,3) 

332 13 = 13 - 1 

1F<I3 .67. 1) 60 TC 31 
S2 = GCTC12.1) + PPARS(J,5) 

702 IF (PPARS < J,8 ) .LT. 890C000.» $2= PPARS(Jt 8) + PPARS<u,5) 
IF(S2 .GT. R2) R2 = S2 
628 COMINOE 

RUNSIP = R2 - R1 
C BUILD IkHCLE page GRAPH. 

1C CALL NEWPAG 

CALL HCVABS (C ,780 ) 

CALL DMPBUF 

WRITE{6,21> {FEAC<oJ,J=l,15) 

21 FCRPATi* »,2>,15A4J 
CALL MCVABS ( 3 ,100 J 
CALL OfiWABSt 1CG0,10GI 
CALL CRWABS ( ICCO ,75C ) 

CALL DRWA3SC3,750) 

CALL DRWABS<3,1CC) 

CALL MCVABS{3CC,75G) 

CALL CRkABS(3GC,lQG) 

CALL DKPBUF 

11 = T7SPT - 1. 

12 = 3C0 

13 = 7CC / (II + n 
DO 625 I = 1,11 

12 = 12 * 13 

CALL MCVABS(I2,1CD) 

CALL ORWABSl 12,7501 
625 CCMIME 

CALL DHPBUF 

C DRAW DIVISIONS FOR DIFFERENT GRAPHS. 

13Y = 650 / NCP 
I4Y : I3Y / 2 

11 = NCP - 1 

12 = ICO 

IFdl .LT. 1) 60 TO 28C 
DO 26 I = 1,11 

14 = 12 ♦ I4Y 

CALL MCVA8S(30D,I4> 

CALL CRWABS ( 3C5 ,14 1 
CALL MCVABS (995 ,14 ) 

CALL ORWABS( 1CCC,I4 ) 

12 = 12 ♦ I3Y 
CALL MGVABS(0,I2) 

CALL ORWABS ( ICCC ,12 1 
CALL DMPBUF 
26 CONTINUE 
28C 14 = 12 + I4Y 

CALL M0VABS(3CD,I4) 

CALL CRUABS( 305,14) 

CALL HCVABS(99S,I4) 

CALL DfiWABS(lCCC,I4) 

CALL DMPBUF 
C ACD ALPHA 


o 



II - 75D 
ICLP = 1 

CALL VUINDOIC, , 1023. ♦C., 780.) 

CALL SUINOO(C, 1023, 0,780 ) 

00 7C I = 1,NCP 
Hi - II 

122 = II - I3Y ♦ 30 
ID = 0 

DC 6C = i,K 

IP <1FIX (PPARS < J ,2 ) > .NE. I) GO TO feO 
CALL MCVABS(0,I11) 

CALL AhMOOE 
CALL CPPBLIF 
J33 : FPARS(.J,1) 

WRITEC6.55) IFE TC ( >! 3 3 , 2 ) , PP AR S ( J , 3 ) 
55 FCRHATC* S6X,A6,F8.2) 

Y1 = 111 - 11, 

CALL MCVEA (10. ,V1 J 
IF(IC .EQ. 0) GO TO iJl C 
IDl r C 
102 = C 

CALL 0SHARC(84. ,Y1,I0,ID1,ID2,IDUP) 
GO TO <111 

41C CALL CRAWA (8<< . , Y1 ) 

411 CALL MCVABS (C ,122 ) 

CALL ANMODE 
CALL DMPBUF 

WRITE (6,55) IFETC(J33,2),PPARS(J,4) 
Y1 = 122 - 13. 

CALL MCVEA (1C . ,Y1 ) 

IF(ID .Ed. D) 60 TO 413 
ICl = c 
102 c 

CALL 0SHARC(84.,Y1,I0,ID1 ,I02,IDUP) 
GO TC 415 

413 CALL DRAWA (84 . , Y1 ) 

415 ID = IC 4 1 

III = 111 * 21 
122 = 122 + 21 

60 CONTINLE 

II : II - I3Y 
70 COhTINLE 

X = (RLNSTP/T TSPT ) + .000001 

T • 


IF(X 

.LT, 

1.) I : 1 

IF (X 

.GE . 

60.) 1=3 

IF (X 

• GE. 

144C.) I = 

X = X 

/ TSTEPX(I) 

X2 = 

R1 / 

TSTEPX( I) 

XI = 

X2 4 

X 

11 = 

TTSPT 

DO 75 


1,11 

XNC( J 

) = 

XI 

XI = 

XI ♦ 

X 


75 CONTINUE 

CALL MCVABS (C , ICO ) 
CALL ANMODE 


00 



228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
281 
282 

283 

284 


CALL DKPBUF 

IFITTSPT .GTo 4.) 60 TO 80 
IFdTSPT .GT, 3.) 60 TO 79 
WRITE(6,93) X2»<XAC«.,) ,J = 1,3> 

93 FORMAH* ♦,15X,F6.1,11X,F6.1,11X,F6.1,1CX»F6.1) 

60 TO 85 

79 l^RITEt6,77) X2 , t XNO { J ) , J= 1 , 4 ) 

77 FORMATC* * , 1 5 X , F 6 . 1 , 6 X , F6 . 1 »7 X , F6 . 1 » 6 X , F6 . 1 , 7X , F 6 . 1 > 
GO TO 85 

8C WRlTE(6,ei) X2 , (X^C ( V > , J=1 f 5 > 

81 FORMATS *,llX.6{4X,F6.in 

85 HRITt(6,86) TSiALPtI) 

86 FORMAT<* »,30X,»TIME (SA4,M») 

C INITIALIZE DASH INFORMATION. 

CC 9C ». = 1*6 
IIDAStv*! ) = C 
90 CONTINLE 
C PLOT VARIABLES... 

IL = 750 
DO 40 I = l.NCP 
IL = IL - I3Y 
IDAS = *1 
IDUP = 1 
DO 36 II = l.K 

IF (IFIX(PPARS(II,2n .NE. I) EC TO 30 
IDAS : IDAS ^ 1 
X = R1 
XL = RLNSTP 

Y = PPARS(II,4) 

YL = PFARS{II,3) - Y 
CALL VblNOQ (X .XL tY «YL ) 

CALL Si»IN00(3CC»700,3L,I3Y) 

14 = PFARStll.lT 

IF(IFETCa4,6) .LE. 12) GO TO 234 
C HERE IF DATA FROM A MODEL. 

18 r IFETC(I4 ,6) 

IR = IFETC(I4,1) 

IF (IB.EQ.16)Ifi=IR*2 
REWIND IB 

READ ae,ERR=710) WN 
MK2 = IFETC(I4,9) 

CO 712 PKl = 1,MK2 

READ(IB,ERR=71C,END=71C} (B(I1).I1=1»IR) 

IF(ie.EQ. 16 )E a) = BtIR“lJ 

IFIB(l) .6E. PPARS(II,7>) GO TO 713 

712 CONTINUE 
GC TC 30 

713 X = BUI ♦ PPARS(II,5> 

Y = 8(IR> 

IDUP 3 IDUP 4 1 
JOUT = 0 

IF(Y ,LT. PPARS{II,4).CR.Y.6T.PPARS(II,3)>DCLT=1 
IF(Y .LT. PPARS(II,4)> Y = PP AR S ( II ,4 ) 

IF(Y .GT. PPARS(II,3)) Y = PPARS(1I,3) 

CALL MCVEA(X,)) 

IF(PPARS(II,9> .GT. D. . 

KEN = 0 


AND. JOUT .EQ. 0) CALL PLS YM I X , Y , IDUP ) 



285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 


KI : 0 

ISTflR - PPARSC1I»6) 

IFdSTAR .EQ, 3) ISTAR = 0 
725 IF(KEN ,EC. 1) GO TO 30 

READ lie, ERR= 710, EN0 = 81C) (B{Il),Il:i,IR) 

IFCIE.EC.16JE {1)=B<IR-1} 

IF(B(1» .LE. PPARS(II,81) 60 TO 807 
810 KEN = 1 
REWIND IB 

IFdSTAR .EQ. OJ GO TO 30 
GC TC 808 

807 IF(KEN .EQ. 1> GC TO 30 

808 KI = KI + 1 

IFdSTAR .EQ. 0) GO TO 801 
IF(MCD(KI,2) .EQ. 0) GO TO 802 
IFdSTAR .EQ. 2) GC TO 8C3 

801 X = BU) * PPARSdl,5> 

IFdSTAR .EQ. C) Y = B(IR) 

GO TC 802 

803 Y r 8(IR) 

802 JOUT = 0. 

IF<Y .17. FPARSdI,4> .OR. Y .GT. FPARSdI,3n JODT = 1 
IF(Y ,LT. PPARS<II,4>> Y r PPARSdI,4) 

IF(Y .GT. PPARS(II,3n Y = PPARS(II,3» 

IF tPPARS(II,6» .EQ. 3.) GO TO 812 
IFilDAS .GT. C) GO TO 717 
IDCP = ICOP * 1 
CALL ORAWAlXtd 

812 IF(PPARStII,9> ,LT. 1. .OR. JOLT .EQ. 1) GC TC 805 

IFiFCD{KI,2> .EQ. 0 .OR. ISTAR .EQ. C ICALL PLSYH ( X ,Y , ICUP » 
GO TO 80S 

717 L : IICASdl, 1) 

N = lICASdI,2) 

CALL DSHARCfX ,Y, IDAS, L ,N, ICUP) 

IIDAS (11,1) = L 
IIDAS(II,2) = N 
GO TO 812 

805 IFdCDF .LT. 9) GC TC 806 
CALL DKPBDF 

IDLP = 1 

806 IFdSTAR .EQ. D> GO TO 725 
IF(M0D(KI,2) .EO. 0) GO TO 807 
IFdSTAR .EO. 1) Y = BdR) 

IFdSTAR .EQ. 1) GC TO 725 

X r B ( 1) -* PPARS { 11,5 ) 

GO TC 725 

71C WRITE(6,711) IB 

711 FQRWAK* ERROR TRYING TO READ UNIT*, 13) 

GC TC 3C 

C P.ERE IF DATA FRCP. A SL DATA BASE. 

234 II = IFETCd4,8) 

.^E = IFETCd4,9) 

233 lF(GCTdl,i) .GE. PPARSdl,?)) GO TO 240 
JE = JE - 1 

IFIOE .LE. 0) 60 TC 3C 

IF (GCT(I1,3).GT.C.) GC TO 235 

11 = 11+1 


-<i 

o 



342 


GO TO 233 



343 

235 

11 = GCT(I1,3 ) 



344 


60 TO 233 



345 

24C 

JEE = t-E 



346 


12 = 11 



347 

241 

IF(60T(I2,1) .GT. PPARSai,8)) GO TO 245 


348 


JEE = vE£ - 1 



349 


IF UEE .LE. C ) GO TO 245 



350 


IF (GOT(I2,3).GT.O. » GO TO 244 



351 


I2=I2+1 



352 


GO TO 241 



353 

244 

12 = GCT(I2»3) 



354 


GO TO 241 



355 

245 

jE - JE - JEE 



356 


IF(JE .LE. 1} GO TO 30 



357 


X = (GCTdl.l) + PPARS(II,5n 



358 


Y = 60iai,2} 



359 


IF (601(11, 3). 67.0.) 60 TO 246 



360 


I1=I1*1 



361 


GO TO 97 



362 

246 

11 = 6CT(I1,3> 



363 

97 

IDUP = IDUP ♦ 1 



364 


JOUT = 0 



365 


IF (Y.Ll.PPARS (11,4) .OR. Y . GT . P P A R S ( 1 1 

,3)) 

vCLTrl 

366 


IF(Y .LT. PPARSeiI,4)) Y = PPARS(II,4) 



367 


IF(Y .GT. PPARS(II,31) Y = PPARS(II.3) 



368 


CALL «CVEA(X,1) 



369 


IF(PPARS(II,9) ,6T, D. .AND. JOUT .EQ. 

0) 

CALL PLSYM(X 

370 

C SEl 

IF FOR TYPE CF FLCKSTAIR STEFS OR FCIM 

TO PCINT).. . 

371 


ISTAR : 50 



372 


12 = JE - 1 



373 


IF (PFARS(II,6 ) .NE. 1. .AND. PPARSdl, 

6 ) . 

NE. 2.) 

374 

1 

GO TO 141 



375 


12 = (vE - 1) ♦ 2 



376 


ISTAR = PPARSdl, 6) 



377 

141 

DO 35 III - 1,12 



378 


IFdSTAR .EQ. 50) GO TO IIB 



379 


IF (MOD (III, 2) .EQ. C) GO TO 119 



380 


IFdSTAR .EQ. 2) GO TO 117 



381 

118 

> = (GCTdl,]) 4 PPARSdl, 5) ) 



382 


IFdSTAR .EQ. 50) Y = G0T(I1,2) 



383 


GO TO 119 



384 

117 

Y : 601(11,2) 



385 

119 

JOUT - 0 



386 


IF(Y .LT. PPARSdl, 4) .OR. Y .GT. PPARSdl 

,3J) JOUT - 

387 


1F(Y .LT. PPARSdl, 4)) Y = PPARSdl, 4) 



388 


IF(Y .GT. PPARSdl, 3)) Y = PPARSdl, 3) 



389 


IF (PPARSdl, 6 ) .EQ. 3.) GO TO 820 



390 


IFdDAS .GT. C) 60 TO 33 



391 


IDUP = IDUP 4 1 



392 


CALL CRAUA(X,T) 



393 

82C 

IF (PFARS (II ,9 ) .LT. 1. .OR. JOUT .EO. 

1) 6C TO 34 

394 


IF(MCDdlI,2).EC.D.0R.ISTAR.EQ.5C)CALL 

PLSYK (X.Y.ICUF ) 

395 


GO TC 34 



396 

33 

L = IIDASdl,!) 



397 


N :: IIEASdI,2) 



398 


CALL CSPARC(X,Y,ICAS,L,K,ICLP ) 




,IDUP ) 



399 


IICASdI.l) : 

L 





ilOG 


II0AS<II,2> = 

N 





401 


GO TO 820 






4C2 

34 

IFdClF ,LT. 

9 1 

60 

TO 

135 


403 


CALL DMPBOF 






404 


lOUP = 1 






405 

135 

IFIISTAR .EQ. 

50) GO 

TO 

136 


406 


IF <MOD (111*2 ) 

«EQ. 0) GO TO 

35 

407 


IFCISTAR .EQ. 

1 ) 

Y = 

GCTdl 

♦ 2) 

408 


IFIISTAR ,EQ. 

1 1 

GC 

TC 

136 


409 


X = G0T(I1,1I 

+ 

PPARSdI.S) 


410 

136 

IF (G0TII1,3) 

.GT 

.0. 1 

GC 

TO 

137 

411 


I1=I1+1 






412 


GO TO 25 






413 

137 

11 = OCT (11,2 

1 





414 

35 

CONTIME 






415 

30 

CONTINLE 






416 

4C 

CONTINLE 






417 


IFIIDOP .GT. 

I 1 

CALL 

DMPBUF 


418 


CALL PAGE3 






4 19 


WRITE(6,763) 






420 

763 

FORMATI* IF YOU 

WISH 

TO 

PLOT MORE 

421 


READ (5 ,76211 Y> 





422 

762 

FORMAT(Il) 






423 


IF (lYX.NE.l ICALL 

RETREVILFLAG 1 

424 


IF (lYX.EC.l) 

ec 

TC 

761 



425 


RETURN 






426 


END 







aPRT,S SMECEP .PLOT33 (C ) 


ENTER 1 OTHERWISE RETN*) 



CB6-GC3‘»32=«SHEC£F 

.PLCT33 <0 ) 


1 


SU8RCU7I^E PLCT33 


2 


C0KMCN/PL0TS/XXX<556 ) ,IARA (6) ,ITP ,CELX,NM,IXXY tlRR ,IR3,JYES 
CCHMCN/ABUF/IF ,IF0,ISIF,IFETC (100,9>»eOT(5CO,3) 


3 



4 


CONMCN/BBUF/8 <601 ) 


5 


CCPPCN/NA«S/ICX,IDY,IZZZ,MNV,PNC 


6 


COHMCN/PLTI/X)Ztl7OUXZ2(lCO),Yl0,VHI»^G,RVAL 


7 


CIKEASIOM XNC(5>,HEAC(15) 


8 


DATA IYDA/*Y V 


9 


CALL NEWPAG 


10 


kRIT£(6,600) 


11 

60C 

FCRPATI* 3APLT FEACIAG WAMED. <15A4)M 


12 

602 

ReAD(5 ,601,ERR=602 ) <HE AD ( I > , I = 1 , 1 5 > 


13 

601 

FORMAT <15A4) 


14 


YDIS=YFI>YLO 


15 


XLC=XX2(1 ) 


16 


XMI=XX2 (NM ) 


17 


RUKSTP:XXZ (NM )-XXZ(l) 


18 

19 


0077 12=3.5 
IRSTPrRDNSTP 


20 


IRST2=IRSTP/I2*IZ 


21 

77 

IF<IRST2.EQ.IRSTP)60 TO 778 


22 


12 = 4 


23 

778 

T7STF=IZ 


24 

C 

BUILD WPOLE PAGE GRAPH 


25 

1C 

CALL NEVJPAG 


26 


CALL MCVABSCO ,780 ) 


27 


CALL CMPBUF 


28 


WRITE<6,Z1) (HEAD 1 ,J = 1,15 ) 


29 

21 

FORMAT(» »,2X,15A4) 


30 


CALL MCVABS(3,1C0) 
CALL ORWABS(1CDO,10C) 


31 



32 


CALL ORUABS ( 1000 ,750 ) 


33 


CALL DRWABS(3,75C) 


34 


CALL DfiWABSI2,10D» 


35 


CALL MCVABS( 3CC ,750 ) 


36 


CALL DRWABS(300,100) 


37 


CALL DMPBUF 


38 


11 = TTSTP - 1. 


39 


12 = 3CG 


40 


13 = 7C0 / (11 ♦ 1) 


41 


DO 625 I = 1,11 


42 


12 = 12 + 13 


43 


CALL MCVABS(I2,100) 


44 


CALL DRkABS( 12,75.0) 


45 

625 

CCMIHLE 


46 

C 

DRAW *Y TICS* 


47 


I2Y=263 


48 


DO 87 1=1,3 


49 


CALLMCVABS (3CC ,I2Y ) 


50 


CALL DfiWABS(3C5,IZY ) 


51 

52 


CALL MCVABS(995,IZY ) 
CALL DfiWABS(lCC0,I2Y ) 


53 


ZZY=FLCAT(I2Y)+162.5 


54 


IZY=ZZY 


55 

87 

CCKTIALE 


56 


CALL MCVABS(C ,750 ) 




57 


58 


59 


60 

55 

61 


62 


63 


69 


65 


66 


67 


68 


69 


70 

75 

71 


72 


73 


74 


75 


76 

78 

77 

93 

78 


79 

79 

80 

777 

81 


82 

80 

83 

178 

84 

85 

85 


86 

100 

87 

86 

88 

C 

89 


90 


91 


92 


93 


94 


95 

51 

96 


97 


98 


99 


100 


101 


102 


103 

151 

104 


105 


106 


107 

152 

1C8 


1C9 

454 

110 


111 


112 


113 



CALL ANMODE 
CALL OMPBUF 
bRITE(6,S5)ICY,YHl 
FORHAK* »,6X,A6,F9,3 ) 

CALL MCVABS(C,13D> 

CALL ANMODE 
CALL OMP8UF 
WRITEie,55)ICY,YL0 
IZF1=I2-U 

X=<RLNSTP/TTSlP)+,OOOOCl 
X1=XXZ (1 ) 

DO 75 J=1,IZP1 
XNO(u)=Xl 
X I - X 1 + X 

CALL MCVABS«C,100 J 
CALL ANMODE 
CALL OHPBUF 
I2M2=IZ-2 

GO TO <78,79,80) ,I2M2 
bRlTE(6,93)fXNCt,J),,.rl,(() 
FORMAT!* *,18X,<4(F6«1,9X) } 

60 TC 85 

UR ITE (6,777) CXNO (J) ,J=1,S) 
FORMAT!* *,15X,5 (F6.1,6X) ) 

60 TC 85 

URITE (6,178 ) (XNO CJ) , J = l,6 } 
FORMAT!* *,15X>G'(F6.1,<1X) ) 
UR1TE(6,86)IDX 

IF(ITP.EQ.1)WRITE(6,1Q01 >RVAL 
F0RMAT(18X,* R=*,F6.‘») 

FORMAT!* *,37>,A6) 

*«=«;PL07 VARIABLES’)'** 

CALL VU1NOO(XLO,RUNSTP,YLO,Y01S> 
CALL SUIND0(3CD, 700, 100,650) 

DO 51 1 = 1, NH 
X=XX2(I) 

Y=XXZ(8S*1) 

CALL MCV£A(X,Y) 

CALL PLSYH<X,Y,2) 

CALL DMPBUF 
IF (IlP.NE.l)CC TC 151 
CALL DMPBIIF 

CALL MCVEA(XZZ(1 J ,XZ2(N6+in 
CALL 0RAUA(XZ2!N6),XZ2!NG+KG) ) 
CALL DMPBUF 
GO TC tiSH 
CALL DMPBUF 

CALL MCVEA!XX2(l)«XXZ!85-»n) 

CO 152 1=1, NG 

CALL 0RAUA(XZ2(I),X2Z(NG*I)) 
ZF(M00(I,15).EQ.0)CALL DMPBUF 
CALL CMFBLF 
CALL MCVABS(31C,75C) 

CALL ANMODE 
CALL DMPBUF 
CALL MCVABS(C,0) 

CALL MCVABS!C,0) 





114 


CALL DMPBUF 


115 


WRITE < 6,455) 


116 

455 

F0RHAT<* HARD COPY 

WANTED?*) 

117 


READ (5 ,456)IHD 

118 

456 

FORMAT <A4 ) 


119 


IF UHC.^E.IYCA )G0 

TO 999 

12G 


CALL HCCOPY 


121 

999 

CALL RE6RES 


122 


STCP 


123 


END 


oPRT,S 

SMECEP .PLSYM (0 ) 




DB6-G03M32+SMECEP.PLSYM (C) 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 


SUBROUTINE PL S YM < X , Y ,I DUP ) 

C THIS ROUTINE PLOTS A X SYNBCL AT THE FCIM DEFINED BY 
C ENGINEERING UNITS CF X AND Y. 

COFKCN/TKTRNX/KBAUCR ERROR, KGR A FL,K HONEY, KK NODE, 

1 KhORSZ,KV£RSZ ,KITALC,KSI2EF,KLMRGN ,KRNRGN , 

2 KTBLSZ,KH0RZT<10),KVERTT(10) , 

3 KBEAHX,KBEANY,KH0VEF,KPCHAR(4 ) , 

4KHINSX,KNINSY,KNAXSX,KNAXSY,TNINVX,TNINVY,TNAXVX,THAXVY, 

5TREALX,TREALY,TINA6X,TIMAGY,TRC0SF,TRSINF,TRSCAL 
CALL MCVEAtXvT) 

IXl = K8EAMX “ 3 

1X2 = KBEAMX + 3 

lYl = XBEAMY - 3 

IY2 = K8EAMY + 3 

IFIICUF .LT. 9> GO TO 2 
CALL DMPBUF 

2 CALL MCVABSaXltlYl) 

CALL DRWABS(IX2,IY2) 

CALL MCVABSClX2,IYn 
CALL OfiUABS(I>l,IY2) 

CALL MCVEACX,!! 

IDUP = 1 
CALL DMPBUF 
RETURN 
END 


5PRT,S SMEDEP .M0D2V (Q ) 


05 



D86-G03‘»32«SMECEP 

1 

2 

3 

4 

5 

6 2C 

7 

8 

9 21 

10 

11 22 

12 

13 

14 23 

15 

16 

17 

18 24 

19 25 

20 
21 

22 26 

23 

24 3C 

25 31 

26 

27 35 

28 36 

29 

30 40 

31 60 

32 

33 8C 

34 

35 

36 

37 

38 

39 85 

40 

41 90 

42 

43 ICO 

44 

45 120 

46 

47 

48 140 

49 

50 160 

51 

52 

53 180 

54 

55 

56 


M0D2V{G) 

StERCL^I^E MCC2V 

CCl'MCN/ABLF/IF,IFD,ISIF,IFETC(lCCv9),G0T<5CC,3),IEND,3ENCe 
REAL DATA(2) 

DATA JYES/*Y*/ 

WRITE (6,20) 

FCRMAT(/» THIS COF.HAhO ALLOWS THE LSER TO FCCIFY*/, 

£ • 0^E VARIABLE BY A^OTHER VARIABLE*//) 

UR1T£(6,21) 

FORMAT!* DC YOU WISH I N S TR U CT I ON S ? ( Y ,M * ) 

READ (5,22) JY 
FCRMAT(Al) 

IF (^Y.NE.JYES) GO TO 30 
WRITE(6,23) 

FORMAT!//* ENTER DESIRED MODIFY FUNCTION*/ 

2 * MFUN=1, VAR3=VAR1 

3 * -3, VAR3=VARi 


+ VAR2*/* 
« VAR2*/* 


= 2 , 

= 4, 


* ICC. (3 )*/ ) 


VAR3=VAR1 - VAR2*/ 
VAR3=VAR1 / VAR2*/ 


- - t 

4 * =5, VAR3= (VAR2-VAR1 )/VARl 

READ (5,25) MFUN 
FORMAT (ID 

IF (MFUN.6T.0 .AND. MFUN.LT.6) 60 TO 35 
WRITE (6,26) 

FORMAT!/* ♦♦♦ INCORRECT MCCIFY FUNCTION, TRY AGAIN") 

GO TO 24 
WRITE(6,3I) 

FORMAT!//* ENTER DESIRED MODIFY FUNCTION*) 

60 TO 24 
WRITE(6,36) 

FORMAT (// 

£ ’ PLEASE LIST VARl TO BE MODIFIED BY VAR2 TO CREATE VAR2*//) 
WRIT£(6,60) 

FORMAT!* VARl VAR2 VAR3M 
READ (5,80) 101,102,103 
F0RMAT(3(A6,1X)) 

11=0 

12=0 

DO 120 1=1, IF 

IF !IFETC(I,2) .NE.ID3) GO TO 90 
WRITE (6,85) ID3 
FORMAT!* DUPLICATE NAME * 

60 TO 40 

IF !IFETC!I,2).NE.ID1) GO TO 100 
11 = 1 

IF !IFE7C!I,2 ).NE.IC2) 60 TC 12C 
12=1 

CONTINUE 

IF (Il.GT.O) GO TO 160 
WRITE (6,140) IDl 

FORMAT !2X,A6,* NOT RECCGM2E0, TRY AGAIN*/) 

GO TC 4C 

IF (I2.GT.0) GO 70 180 
WRITE (6,140 ID2 
GO TO 40 
IM = IFETC(II,9) 

IN2=1FETC (12 ,9 ) 

NG1=IFETC(I1 ,e ) 

NVM = C 


,A6< 


TRY AGAIN"/) 



57 


DO 280 1 = 1, IM 

58 


NG2=IFETC(I2,8) 

59 


DC 2*40 J = l,Ih2 

60 


IF (ABS(60T{NG2,l)'-60T{NGl,in .6T.1.E-10) GO TO 195 

61 


DATA(1)=60T(NG1,1) 

62 


0ATAt2»=6OT(NGl,2) 

63 


CALL MCDVAR(C/!TA,MFIN’,ID3,G0T(NG2,21,I1> 



NVM=NVK*1 

65 


IFETC(IF+1,9)=NVM 

6 6 

195 

CONTIME 

67 


IF (G0T(N62,3) .GT,0. ) GO TO 200 

68 


NG2=N62*1 

69 


GC TC 2**C 

70 

2G0 

N62 = 60T(NG2,3 ) 

71 

2‘tO 

COMINLE 

72 


IF (G0TING1,3).GT.C.) GO TO 26C 

73 


NG1=M61+1 

7^ 


GO TO 280 

75 

26C 

KG1 = G0T (AG1,3 > 

76 

280 

COMINLE 

77 


LFLAG=S9 

78 


IF=IF*1 

79 


CALL RETREVtLFLAG) 

80 


RETURN 

81 


END 


aPR7»S SMECEP.MODVAR (C > 



DB6-G03432«SMEDEP»M0OVAR (0 » 


1 


2 


3 


4 


5 

10 

6 


7 

20 

8 


9 

30 

10 


11 

40 

12 


13 

5C 

14 

100 

15 


16 

110 

17 


18 


19 


20 


21 


22 


23 

120 

24 


25 

13C 

26 


27 


28 


29 


30 


31 


32 


33 


34 

140 

35 


36 


37 

150 

38 


39 


40 

160 

41 


42 


43 


44 


45 


46 


47 

520 

48 

530 

49 


50 


51 



SUBROUTINE HOCVflR(CATA,MFUN,NVALN,VKr»,l) 

CCNMCN/ABUF/If,IFD,ISIF,IFETC{lCC,9)»GC7(5C0,3)fIENC,IENCG 
REAL CATA(2> 

GO TO (10, 20, 3C, *40, SCI, MFUN 

0ATAN:DATA(2)+VK 

GO TC IGO 

CATAK = CA7A(2 )-VK 

GO TC IOC 

DATANrCATA(2 )= 0 VK 

60 TC lOG 

DATAN=DATA(2)/VK 

GO TO 100 

CATAK=(VK-DAT/ (2 n/CATA (2 ) * ICC. 

CONTINUE 

WRITE (6,110) DA TA, VK ,C AT AN,NVALN 
FORMAT (‘*G12.5,5X,A6 > 

IF (NVALN.EQ.NVALL) 60 TO 1<40 

NVALL:NVALN 

NC=0 

ISIF=ISIF+1 

IF (IF41.LE.IENC) GO TC 13C 
WRITE(6,120) 

FORMAT(//* FETCH ARRAY FULL*) 

ec TC E2C 

IFETCUF41,1):IFETC(.j1,1> 

IFETC(IF4l,2)rNVALN 

IFETC(1F41,3)=IFETC(J1,3) 

IFETC(IF+1,4)=IFETC(J1,4) 

IFETC(IF4 1 ,5 ) = IFETC (Jl,5 ) 

IFETC (IF + l ,6 ) :IFETC I J1 ,6 ) 

IF (IFETC(IF41,6).GT.12) IFETC ( IF4l ) z 9 
IFETC(IF+1,7)=IFETC( Jl,7) 

IFETC(IF4l,8)=IFD4l 

IFC=2FC4l 

IF ( IFC.LE.IENDG ) GO TO 16C 
WRITE(6,15Q) 

FORMAT(//» **** DATA BUFFER FULL*) 

IFD=IFD~1 
GO TO 520 

60T(1FC,1)=0ATA(1) 

IF (KFtN.EQ.7) GOT ( IFO , 1 ) =0 ATAN 
GOT ( 1FC,2 )=DATAN 
G0T(IFC,3)=0. 

NC=NC4l 

IF (NC.LT.lFETC(IF,9n GO T ( IF C , 3 > = I F C 4 1 
RETURN 

WRITE (6,530 ) 

FORMAT(* REQUEST TO MODIFY DATA DENIED*//) 

LFLAG=99 

CALL RETREVdFLAE ) 

END 


-vl 

CO 


3BRKPT PRINTS 



80 


APPENDIX B 
DATA BASE DIRECTORY 



LABELS FOR EXPERIMENT M171 


LABELS FOR EXPERIMENT H171 


1 

V02-REST <L/MIN> 

58 

CO • 190 HR 

2 

V02-LEVEL 1 (L/MIN) 

59 

CO ♦ 200 SBP 

3 

V02-LEVEL 2 (L/MIN) 

60 

CO • 110 MAP 


V02-LEVEL 3 (L/MlN) 

61 

SBP * 15 L/MIN , 

5 

V02-REC0VERY CL/MIN) 

62 

DBP • 15 L/MIN 

6 

VC02-REST (L/MIN) 

63 

SBP * 160 HR 

7 

VC02-LEVEL 1 (L/MIN) 

69 

DBP • 160 HR 

8 

VC02-LEVEL 2 (L/MIN) 

65 

RER * 160 HR 

9 

VC02-LEVEL 3 (L/HIN) 

66 

SV ♦ 160 HR 

10 

VC02-REC0VERY (L/MIN) 

67 

AV02 * 2 L V02 

H 

RER-REST 

68 

AV02 • 1 L V02 

12 

RER-LEVEL 1 

69 

MAP ♦ 160 HR 

13 

RER-LEVEL 2 

70 

MAP * 12 L/MIN CO 

19 

RER'LEVEL 3 

71 

MAP • 15 L/MIN CO 

15 

RER*RECOVERY 

72 

TPR • 160 HR 

16 

VE-REST (L/MIN) 

73 

TPR * 12 L/MIN CO 

17 

VE-LEVEL 1 (L/MIN) 

79 

TPR ’ 15 L/MIN CO 

18 

VE-LEVEL 2 (L/MIN) 

75 

TPR • 2 L/MIN V02 

19 

VE-LEVEL 3 (L/MIN)- 

76 

AV02 » 120 HR 

20 

VE-RECOVERY (L/MIN) 

77 

AV02 * 190 HR 

21 

H R-REST (BT/MIN) 

78 

AV02 ’ 160 HR 

22 

H R'LEVEL 1 (BT/MIN) 

79 


23 

H R-LEVEL 2 (BT/MIN) 

80 


29 

H R-LEVEL 3 (BT/MIN) 

81 


25 

H R-RECOVERY (BT/MIN) 

82 


26 

SBP-REST (MM HG) 

83 


27 

S8P-LEVEL 1 (MM HG ) 

89 


28 

SBP-LEVEL 2 (MM H6 ) 

85 


29 

SBP-LEVEL 3 (MM HG ) 

86 


30 

SBP-RECOVERY (MM HG) 

87 


31 

DBP-REST (MM HG > 

88 


32 

DBP-LEVEL 1 (MM HG) 

89 

AV6 XRCTS STROKE VOL 

33 

OBP-LEVEL 2 (MM HG ) 

90 


39 

DBP-LEVEL 3 (MM HG) 

91 

STROKE VOL-REST CC 

35 

08P-REC0VERY (MM HG ) 

92 

STROKE VOL-LEV 1 CC 

36 

MAP-REST (MM HG) 

93 

STROKE VOL-LEV 2 CC 

37 

MAP-LEVEL 1 (MM HG ) 

99 

STROKE VOL-LEV 3 CC 

38 

MAP-LEVEL 2 (MM HG ) 

95 

STROKE VOL-RECOV CC 

39 

MAP-level 3 (mm hg) 

96 

AV02 DIFF-REST 

90 

MAP-RECOVERY (MM HG ) 

97 

AV02 DIFF-LEV 1 

91 

CARD OUT-REST (L/MIN) 

98 

AV02 DIFF LEV 2 

92 

CARD OUT-LEV 1 (L/MIN) 

99 

AV02 DIFF LEV 3 

93 

CARD OUT-LEV 2 (L/MIN) 

100 

AV02 OIFF-RECOV 

99 

CARD OUT-LEV 3 (L/MIN) 

101 

TPR-REST 

95 

CARD OUT-RECOV (L/MIN) 

102 

TPR-LEV 1 

96 


103 

TPR-LEV 2 

97 


109 

TPR-LEV 3 

98 


105 

TPR-RECOVERY 

99 


106 

PULSE PRS-REST (MMHG) 

50 


107 

PULSE PRS-LEV 1 (MMHG) 

51 

VOl * 160 HR 

108 

PULSE PRS-LEV 2 (MMHG) 

52 

V02 ’ 190 HR 

109 

PULSE PRS-LEV 3 (MMHG) 

53 

V02/K6-MIN • 18Q HR 

110 

PULSE PRS-RECOV (MMHG) 

59 

V02 • 150 WATTS 

111 

TIME TENS INDX-REST 

55 

VE • 2. L V02 

112 

TIME TENS INDX-LEV 1 

5 6 

CO * 2. L V02 

113 

TIME TENS INDX-LEV 2 

5 7 

CO * 160 HR 

119 

TIME TENS INDX-LEV 3 



LABELS FOR EXPERIMENT H171 


115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 
■ 157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 


TIME TENS INDX-RECOV 


LABELS FOR EXPERIMENT M171 



179 

180 


END ONSITE PRINTOUT ON DECEMBER 
DB6-G03432#TPF$<0) .WJO) 


1975 AT 08:43:35 


CO 





LABELS FOR EXPERIMENT M092 


HEART RATE (CONTROL) 

HEART RATE (>30) 

HEART RATE (-‘»0) 

HEART RATE (-50) 

HEART RATE (RECOVERY) 
SYSTOLIC BP (CONTROL) 
SYSTOLIC BP (-30) 

SYSTOLIC BP (-40) 

SYSTOLIC BP (-50) 

SYSTOLIC BP (RECOVERY) 
DIASTOLIC BP (CONTROL) 
DIASTOLIC BP 1-30) 
DIASTOLIC BP (-40) 
DIASTOLIC BP (-50) 
DIASTOLIC BP (RECOVERY) 
MEAN BP (CONTROL) 

MEAN BP (^30) 

MEAN BP (-40) 

MEAN BP (-50) 

MEAN BP (RECOVERY) 

PULSE PRESSURE (CONTROL) 
PULSE PRESSURE (-30) 

PULSE PRESSURE (-40) 

PULSE PRESSURE (-50) 

PULSE PRESSURE (RECOVERY.) 
PLVC EOP (CONTROL) 

PLVC EOP (-30) 

PLVC EOP (-40) 

PLVC EOP (-50) 

PLVC EOP (RECOVERY) 

SI SLOPE (CONTROL) 

SI SLOPE (-30) 

SI SLOPE (-40) 

SI SLOPE (-50) 

51 SLOPE (RECOVERY) 

52 SLOPE (CONTROL) 

S2 SLOPE (-30) 

S2 SLOPE (-40) 

S2 SLOPE (-50) 

S2 SLOPE (RECOVERY) 

SI COMPLIANCE (CONTROL) 

SI COMPLIANCE (-301 
SI COMPLIANCE (-40) 

SI COMPLIANCE (-50) 

SI COMPLIANCE (RECOVERY) 
PEP (CONTROL) 

PEP (-30) 

PEP (-40) 

PEP (-50) 

PEP (-RECOVERY) 

LVET (CONTROL) 

LVET (-30) 

LVET (-40) 

LVET (-50) 

LVET (RECOVERY) 

PEP/LVET (CONTROL) 
PEP/LVET (-30) 


LABELS FOR EXPERIMENT M092 


PEP/LVET (-40) 

PEP/LVET <^50) 

PEP/LVET (RECOVERY) 

ETI (CONTROL) 

ETI (-30) 

ETI (-40) 

ETI (-50) 

ETI (RECOVERY) 

(0-S2) 1 (CONTROL) 
(Q-S2) I (-3.0) 

(0-S2) I (-40) 

(0-S2) I (-50) 

(0-S2) I (RECOVERY) 

SI AMPLITUDE (CONTROL) 
SI AMPLITUDE (-30) 

SI AMPLITUDE (-40) 

SI AMPLITUDE (-50) 

SI AMPLITUDE (RECOVERY 
STROKE VOLUME (CONTROL 
STROKE VOLUME (-30) 
STROKE VOLUME (-40) 
STROKE VOLUME (-50) 
STROKE VOLUME (RECOVER 
CARDIAC OUTPUT (CONTRO 
CARDIAC OUTPUT (-30) 
CARDIAC OUTPUT (-40) 
CARDIAC OUTPUT (-50) 
CARDIAC OUTPUT (RECOVE 
PRU (CONTROL) 

PRU (-30) 

PRU (-40) 

PRU (-50) 

PRU (RECOVERY) 

ECHO LV-THICKNE-SS (CON 
ECHO LV-THICKNESS (-30 
ECHO LV-THICKNESS (-40 
ECHO LV-THICKNESS (-50 
ECHO LV-THICKNESS (REC 
ECHO LV-STROKE VOL, (C 
ECHO LV-STROKE VOL, (- 
ECHO LV-STROKE VOL, (- 
ECHO LV-STROKE VOL, (- 
ECHO LV-STROKE VOL, (fi 


STROKE \ 
STROKE ) 
STROKE \ 
STROKE ) 
STROKE ( 
CARDIAC 
CARDIAC 
CARDIAC 
CARDIAC 
CARDIAC 
PRU (CO 
PRU (-3 
PRU (-4 
PRU (-5 
PRU (RE 
ECHO LV 
ECHO LV 
ECHO LV 
ECHO LV 
ECHO LV 
ECHO LV 
ECHO LV 
ECHO LV 
ECHO LV 
ECHO LV 


(-40) 

(-50) 

(RECOVERY) 

(CONTROL) 

(-30) 

(“40 ) 

(-50 ) 

(RECOVERY) 

T (CONTROL) 

T (-30) 

T (-40) 

T (-50) 

T (RECOVERY) 


00 

CO 




LABELS FOR EXPERIMENT M092 


P MAX MAG (-30) 

P MAX MAG (-‘♦0) 

P MAX MAG (-50) 

P MAX MAG (RECOVERY) 
P MAX AZ (CONTROL) 

P MAX AZ (-30) 

P MAX AZ (-40) 

P MAX AZ (-50) 

P MAX AZ (RECOVERY) 

P MAX EL (CONTROL) 

P MAX EL (-30) 

P MAX EL (-40) 


P MAX EL (-50) 

P MAX EL (RECOVERY) 
QRS-E CIRC (CONTROL) 
QRS-E CIRC (-30) 

QRS-E CIRC (-40) 

QRS-E CIRC (-50) 

ORS-E CIRC (RECOVERY) 
QRS-E AREA (CONTROL) 
QRS-E AREA (-30) 

QRS-E AREA (-40) 

QRS-E AREA (-50) 

QRS-E AREA (RECOVERY) 
QRS-E DEPTH (CONTROL) 
QRS-E DEPTH (-30) 

QRS-E DEPTH (-40) 

QRS-E DEPTH (-50) 

QRS-E DEPTH (RECOVERY) 
ORS MAX MAG (CONTROL) 
QRS MAX MAG (-30) 

ORS MAX MAG (-40) 

QRS MAX MAG (-50) 

QRS MAX MAG (RECOVERY) 
QRS MAX AZ (CONTROL) 
QRS MAX AZ (-30) 

QRS MAX AZ (-40) 

QRS MAX AZ (-50) 

QRS MAX AZ (RECOVERY) 
QRS MAX EL (CONTROL) 
ORS MAX EL (-30) 

QRS MAX EL (-40) 

ORS MAX EL (-50) 

QRS MAX EL (RECOVERY) 
ST-E CIRC (CONTROL) 
ST-E CIRC (-30) 

ST-E CIRC (-40) 

ST-E CIRC (-50) 

ST-E CIRC (RECOVERY) 
ST-E AREA (CONTROL) 
ST-E AREA (-30) 

ST-E AREA (-40) 

ST-E AREA (-50) 


ST-E AREA 
ST-E DEPTH 
ST-E DEPTH 


(RECOVERY) 

(CONTROL) 

(-30) 


ST-E DEPTH (-40) 


00 



LABELS FOR EXPERIMENT H092 

229 ST-E DEPTH (-SO) 

230 ST-E DEPTH (RECOVERY) 

231 ST MAX MAG (CONTROL) 

232 ST MAX MAG (-30) 

233 ST MAX MAG (-‘(0) 

234 ST MAX MAG (-5D) 

235 ST MAX MAG (RECOVERY) 

236 ST MAX AZ (CONTROL) 

237 ST MAX A2 (-30 

238 ST MAX AZ (-40 

239 ST MAX AZ (-50 

2^*0 ST MAX AZ (RECOVERY) 

241 ST MAX EL (CONTROL) 

242 ST MAX EL (-30 

243 ST MAX EL (-40 

244 ST MAX EL (-50 

245 ST MAX EL (RECOVERY) 

246 J MAG (CONTROL) 

247 J MAG (-30) 

248 J MAG (-40 

249 J MAG (-50) 

250 J MAG (RECOVERY) 

251 J AZ (CONTROL) 

252 J AZ (-30 

253 J AZ (-40 

254 J AZ (-5D) 

255 J AZ (RECOVERY) • 

256 J EL (CONTROL) 

257 J EL (-30) 

258 J EL (-40) 

259 J EL (-50) 

260 J EL (RECOVERY) 

261 D-ST SLOPE (CONTROL) 

262 D-ST SLOPE (-30) 

263 D-ST SLOPE (-40) 

264 0-ST SLOPE (-501 

265 D-ST SLOPE (RECOVERY) 

266 D-P VECTOR INTEGRAL (CONTROL) 

267 D-P VECTOR INTEGRAL (“30 

268 D-P VECTOR INTEGRAL (-40 

269 D-P VECTOR INTEGRAL (-50 

270 D-P VECTOR INTEGRAL (RECOVERY) 

271 D-QRS VECTOR INTEGRAL (CONTROL) 

272 D-QRS VECTOR INTEGRAL (-30) 

273 D-QRS VECTOR INTEGRAL (-40) 

274 D-QRS VECTOR INTEGRAL (-50 

275 D-QRS VECTOR INTEGRAL (RECOVERY) 

276 D-ST VECTOR INTEGRAL (CONTROL) 

277 D-ST VECTOR INTEGRAL (-30) 

278 D-ST VECTOR INTEGRAL (-40) 

279 D-ST VECTOR INTEGRAL (-50) 

280 D-ST VECTOR INTEGRAL (RECOVERY) 

281 ORS-T SPATIAL ANGLE (CONTROL) 

282 QRS-T SPATIAL ANGLE (-30 

283 QRS-T SPATIAL ANGLE (-40 

284 QRS-T SPATIAL ANGLE (-50) 

285 QRS-T SPATIAL ANGLE (RECOVERY) 


LABELS FOR EXPERIMENT M092 


286 

287 

288 

289 

290 

291 

292 

293 

294 

295 


298 

299 

300 

301 DATE (CAL.) 

302 DOY 

303 MO 

304 TIME (GMT) 

305 PRESYNCOPE TIME 

306 WEIGHT 

307 L CALF CIRC 

308 R CALF CIRC 

309 L LEG VOLUME 

310 R LEG VOLUME 

311 ORAL TEMP. 

312 AMB. TEMP-BEGIN 

313 AMB. TEMP-ENO 

314 LBNPD TEMP-BEGIN 

315 LBNPD TEMP-END 

316 HOURS SINCE LAST MEAL 

317 HOURS SINCE SLEEP 

318 HOURS OF SLEEP 

319 TEST STATION 

320 CLINICAL SBP 

321 CLINICAL DBP 

322 C/TS RATIO (DIAM) 

323 C/TS RATIO (AREAL) 

324 C/TD RATIO (DIAM) 

325 C/TD RATIO (AREAL) 

326 

327 

328 

329 ATMOSPHERIC PRESS (MMHG) 

330 ACHILLES REFLEX TIME 

331 P-VENOUS PRESS 

332 CIRC TIME-1 (ARM-RHEART) 

333 CIRC TIME-2 (ARM-LHEART) 

334 CIRC TIME-3 (AREA-FEH) 

335 ECHO UV-THICKNESS (-8) 

336 ECHO LV-THICKNESS (-16) 

337 ECHO SV (-8) 

338 ECHO SV (-16) 

339 HEART RATE (-8) 

340 HEART RATE (-16) 

341 SYSTOLIC BP (-8) 

342 SYSTOLIC BP (-16) 



LABELS FOR EXPERIMENT M092 


3*t3 DIASTOLIC BP (-8) 

3<m DIASTOLIC BP <-16» 

345 MEAN BP (-8) 

346 MEAN BP (-16) 

347 PULSE PRESS (-8) 

348 PULSE PRESS (-16> 

349 PLVC EOP (-8) 

350 PLVC EOP (-16) 

351 SI SLOPE (-8) 

352 SI SLOPE (-16) 

353 S2 SLOPE (-8) 

354 S2 SLOPE (-16) 

355 SI COMPLIANCE (-8) 

356 S2 COMPLIANCE (-16) 

357 LEG BL FL-1 (-3GI 

358 LEG BL FL-2 C-30) 

359 LEG BL FL-1 (-5D) 

360 LEG BL FL-2 C-50) 

END ONSITE PRINTOUT ON DECEMBER 3, 1975 AT 08:46:09 
DB6-6034 32*TPF5 (0) .W (D ) 


LABELS FOR EXPERIMENT M073 


1 TOTAL URINE VOL (ML) 

2 URINE OSMOL (MOSM/TV) 

3 URINE NA (MEQ/TV) 

4 URINE K (MEO/TV) 

5 URINE MG (MEQ/TV) 

6 URINE P04 (MG/TV) 

7 URINE CA (MEQ/TV) 

8 URINE CL (MEQ/TV) 

9 URINE H (MLAOH/VOL) 

10 URINE SPECIFIC GRAV 

11 URINE CREAT (MG/TV) 

12 URINE URIC A (MG/TV) 

13 EPINEPHRINE (U6/TV) 

14 NOREPINEPHRIN (UG/TV) 

15 ADH (MU/TV) 

16 HYDROCORTISON (UG/TV) 

17 ALDOSTERONE (UG/TV) 

18 17-OH-CORT (MG/TV) 

19 5-OH-IAA (MG/TV) 

20 BLOOD OSMOL (MOSM/L) 

21 BLOOD NA (MEQ/D 

22 BLOOD K (ME6/L) 

23 BLOOD MG (MGO 

24 BLOOD P04 (MG( ) 

25 BLOOD CA (MGO 

26 BLOOD CL (MEQ/L) 

27 BLOOD GLUCOSE (MGO 

28 TOTAL PLASMA PROT (GO 

29 PARATHORMONE (PG/ML) 

30 CALCITONIN (PG/ML) 

31 VITAMIN D (NG/ML) 

32 TSH (PG/ML) 

33 HYOROCORT (UG/IOOML) 

34 ALDOSTERONE (PG/ML) 

35 GROWTH HORMONE (NG/ML) 

36 ANGIOTENSIN (MU6/ML/H) 

37 INSULIN (UU/ML) 

38 THYROXIN (UG/IODML) 

39 ACTH (PG/ML) 

4D TESTOST (NG/IOOML) 

41 DIET CALORIES (KCAL) 

42 DIET PROTEIN (G) 

43 DIET CALCIUM ( MG > 

44 DIET PHOSPHORUS (MG) 

45 DIET SODIUM (MG) 

4-6 DIET MAGNESIUM (MG) 

47 DIET POTASSIUM (MG) 

48 WATER INTAKE (ML) 

49 

50 

51 

52 

53 PREGNANEDIOL (MG/TV) 

54 ANOROSTERONE (MG/TV) 

55 ETIOCHOLAN (MG/TV) 

56 DEHYDROEPIANO (MG/TV) 

57 11-O-ANDRO (MG/TV) 



LABELS FOR EXPERIMEMT M073 

58 11-O-ETIOCHO (MG/TV) 

59 11-OH-ANDRO (MG/TV) 

60 11-OH-ETIOCHO <MG/TV) 

61 TOTAL 17-KETO (TMG/TV) 

62 TOTAL LYSINE (M6/TV) 

63 TOTAL HISTIOIN (MG/TV) 

64 TOTAL NH3X1000 (MG/TV) 

65 TOTAL ARGININE (MG/TV) 

66 TOTAL OH-PROL (MG/TV) 

67 TOTAL ASP ACID (MG/Ttf) 

68 TOTAL THREONIN (MG/TV) 

69 TOTAL SERINE (MG/TV) 

70 TOTAL GLU ACID (MG/TV) 

71 TOTAL PROLINE (MG/TV) 

72 TOTAL GLYCINE (MG/TV) 

73 TOTAL ALANINE <M6/TV) 

74 TOTAL CYSTIN/2 (MG/TV) 

75 TOTAL VALINE (MG/TV) 

76 TOTAL METHION (MG/TV) 

77 TOTAL ISOLEUC (MG/TV) 

78 TOTAL LEUCINE (MG/TV) 

79 TOTAL TYROSINE (MG/TV) 

80 TOTAL PHENYLAL (MG/TV) 

81 FREE OH-LYSINE (MG/TV) 

82 FREE GABA (MG/TV) 

83 FREE ORNITHINE (MG/TV) 

84 FREE ETOHAMINE (MG/TV) 

85 FREE NH3X1000 (MG/TV) 

86 FREE LYSINE (MG/TV) 

87 FREE 1-CH3-HIS (MG/TV) 

88 FREE HISTIDINE (MG/TV) 

89 FREE 3-CH3-HIS (MG/TV) 

90 FREE ANSERINE (MG/TV) 

91 FREE TRYPTOPHA (MG/TV) 

92 FREE CREATININ (MG/TV) 

93 FREE CARNOSINE (MG/TV) 

94 FREE ARGININE (MG/TV) 

95 PHOSPHOSERINE (MG/TV) 

96 P04-ET0M-AMINE (MG/TV) 

97 FREE TAURINE (MG/TV) 

98 UREA/IDOO (MG/TV) 

99 FREE OH-PROLIN (MG/TV) 

100 FREE ASPART AC (MG/TV) 

101 FREE THREONINE (MG/TV) 

102 FREE SERINE (MG/TV) 

103 FREE ASPARAGIN (MG/TV) 

104 FREE GLUTAMINE (MG/TV) 

105 FREE SARCOSINE (MG/TV) 

106 FREE PROLINE (MG/TV) 

107 FREE GLUT ACID (MG/TV) 

108 FREE CITRULLIN (MG/TV) 

109 FREE GLYCINE (MG/TV) 

110 FREE ALANINE (MG/TV) 

111 A-AMINOADIPTC (MG/TV) 

112 A-NH2-N-BUTYR (MG/TV) 

113 FREE VALINE (MG/TV) 

114 FREE CYSTIN/2 (MG/TV) 


LABELS FOR EXPERIMENT M073 


CYSTATHIONINE (MG/TV) 
FREE METHIONIN (MG/TV) 
FREE ISOLEUCIN (MG/TV) 
FREE LEUCINE (MG/TV) 
FREE TYROSINE (MG/TV) 
FREE PHENYLALA (MG/TV) 
FREE B-ALANINE (MG/TV) 
B-NH2~I~BUTYR (MG/TV) 


00 



LABELS FOR EXPERIMENT M073 



END ONSITE PRINTOUT ON DECEMBER 2t 1975 AT 08:48:26 
DB6-60 34 32={‘TPF$<0).W (Q) 


LABELS FOR EXPERIMENT MllO 


RBC (MILL/CU MM) 

HB (G PCT) 

OXYHB (PCT SAT) 

COHB (PCT SAT) 

METNB (PCT) 

HCT (PCT) 

RETIC (PCT) 

RETIC NO (THOU/CU MM > 
RETIC INDEX 
MCV (CU UM) 

MCH (PM G) 

MCHC (PCT) 

PLAT (/CU MM) 

TOT EO (/CU MM) 

WBC (/CU MM) 

NEU7 NO (/CU HH) 

LYMPH NO </CU MM) 

MONO NO {/CU MM) 

NEUT (PCT) 

LYMPH (PCT) 

MONO (PCT) 

EO (PCT) 

BASO (PCT) 

BAND (PCT) 

TSP (6 PCT) 

ALB (G PCT) 

Al-M (G PCT) 

A2-M (G PCT) 

B-M (G PCT) 

G-M (G PCT) 

LIPO A1 (PCT) 

LIPO PRE B (PCT) 

LIPO B (PCT) 

CRP (-1 OR +1) 

RPR (-1 OR +1) 

AHA (-1 OR +1) 

LDH 1 (PCT) 

LDH 2 (PCT) 

LDH 3 (PCT) 

LDH ,4 (PCT > 

LOH 5 (PCT) 

TRANS (MG PCT) 

HAPTO (MG PCT) 

CERULO (M6 PCT) 
HEMOPEX (M6 PCT) 

PRE ALB (MG PCT) 

IGA (M6 PCT) 

166 (MG PCT) 

IGM (MG PCT) 

IBD (MG PCT) 

IGE (N6/ML) 

B1 A (MG PCT) 

A2 MACRO (MG PCT) 

A 6LYC0 (MG PCT) 


QQ 

00 



LABELS FOR EXPERIMENT MllO 


AI ANTITRYP CM6 PC7» 
LYSOZYME (UG/ML) 


PL PROT (6 PCT> 

PL ALB <G PCT) 

PL A2-M (G PCT> 

PL G-M (6 PCT) 

PL PRE ALB (MG PCT) 

PL TRANS (MG PCT) 

PL HAPTO <M6 PCT) 

PL HEMOPEX (MG PCT) 

PL CERULO (MG PCT) 

PL A2 MACRO (MG PCT) 

PL INT-A-TRIP INH (MG PCT) 


GLYCO (MG PCT) 
ANTITRIP (MG PCT) 
(MG PCT) 

(MG PCT) 

INH (PCT WPS) 

> (MG PCT) 


PL LYSOZYME (UG/HL > 
PL IG6 (MG PCT) 

PL IGA (MG PCT) 

PL IGM (MG PCT) 

PL I6D (MG PCT) 

PL 16E (MG PCT) 


RCM (ML) 

(+ OR -) RCM PCT (PCT) 
RCM/WT (ML/KG) 

PVOL (ML) 

(+ OR -) PVOL PCT (PCT) 
PVOL/WT (ML/KG) 

PI (U6 PCT) 

PIT (MG/KG/DAY) 

FE Tl/2 (MIN) 

RBC 51CR Tl/2 (DAYS) 

RB C 1 ^ C 

FE REAPPEARANCE (PCT) 
BLD VOL (ML) 

BLD VOL/WT (ML/KG) 

PER HCT (PCT) 

BDY HCT (PCT) 

HCT RATIO 

BLD DRfciN (ML/MAN) 


TBW (L) 


ECF (L) 


ICF (L) 


ISF (L) 


TOT K (MEQ) 
BDY WT (KG) 
LEAN BDY MASS 


(KG) 


3H20 (UCI) 
43K (UCI) 


LABELS FOR EXPERIMENT MllO 


115 

51CR 

(UCI) 


116 

1251 

(UCI) 


117 

35S04 (UCI) 


118 

59FE 

(UCI) 


119 

14C 

(UCI ) 


12D 

TOT 

DOSE (UCI 

) 

121 

H6B 

(6 -PCT) 


122 

METHGB (PCT) 


123 

GSH 

(MG PCT) 


124 

LTPI 

D PEROXIDES (NM/6 HB ) 

125 

ATP 

(UM/G HB ) 


126 

23DP6 (UM/G HB) 

127 

atp/opg 


128 

G6PD 

(EU/G HB 

) 

129 

HK ( 

EU/G HB) 


130 

PFK 

(EU/G HB) 


131 

G3PD 

(EU/G HB 

) 

132 

PGK 

(EU/G HB) 


133 

PK ( 

EU/G HB) 


134 

ACHE 

(EU/G HB 

> 

135 




136 




137 




138 

SPGl 

(PCT) 


139 

SP62 

(PCT) 


140 

SPG3 

(PCT) 


141 

SPG4 

(PCT) 


142 

SPG5 

(PCT) 


143 

SP66 

(PCT) 


144 

SPG7 

(PCT) 


145 

SPG8 

(PCT) 


146 

SPG9 

(PCT) 


147 

SPGl 

0 (PCT) 


148 

SPGl 

1 (PCT) 


149 

SPGl 

2 (PCT) 


150 

SPGl 

3 (PCT) 


151 

RBC 

K (MEQ/L 

CELLS ) 

152 

LCF 

K (MEQ/L 

CELLS) 

153 

UNS 

K (MEQ/L 

CELLS) 

154 

HCF 

K (MEQ/L 

CELLS) 

155 

RBC 

NA (MEQ/L 

CELLS) 

156 

LCF 

RETIC (PCT) 

157 

K INFLUX TOT 

(MEO/L RBC/HR) 

158 

K INFLUX QUA 

(MEQ/L RBC/HR) 

159 

K IN 

FLUX ACT 

(MEQ/L RBC/HR) 

160 

INT 

FRAG BEGI 

N (PCT) 

161 

INT 

FRAG 50( 

(PCT ) 

162 

INT 

FRAG END 

(PCT) 

163 

INT 

FRAG BEGIN (HIN) 

164 

INT 

FRAG S0( 

(MIN) 

165 

INT 

FRAG END 

(MIN) 

166 

24 HR FRAG BEGIN (PCT) 

167 

24 HR FRAG 50 

( (PCT) 

168 

24 HR FRAG END (PCT) 

169 

24 HR FRAG BEGIN (KIN) 

170 

24 HR FRAG 50 

{ (MIN) 

171 

24 HR FRAG END (MIN) 



LABELS FOR EXPERIMENT MlIO 

172 DISCOCYTE (PCT) 

173 KNIZOCYTE (PCT) 
nH STOMATOCYTE (PCT) 

175 SPHEROCYTE (PCT) 

176 CODOCYTE (PCT) 

177 LEPTOCYTE (PCT) 

178 RETICULOCYTE (PCT) 

179 ECHINOCYTE I (PCT) 

180 OTHER (PCT) 

181 PT (SEC) 

182 PTT (SEC) 

183 FIB (M6 PCT) 

184 FACTOR V (PCT) 

185 FACTOR VIII (PCT) 

186 FACTOR II (PCT) 

187 FSP (MG/ML) 

188 PLASMINOGEN (U/ML) 

189 AT-III (PCT) 

190 ESF (U) (MIU) 

191 

192 

193 RNA--U (24 HR) (DPH/MILL CELLS) 

194 RNA-PHA (24 HR) (DPM/MILL CELLS) 

195 DNA-U (72 HR) (DPM/MILL CELLS) 

196 DNA-PHA (72 HR) (DPM/MILL CELLS) 

197 MLC RESPONSE ( DPM/CULTURE ) 

198 T-CELLS (UTMB) (PCT) 

199 fciBC CT (THOU/CU MM) 

200 LYMPH CT (THOU/CU MM) 

201 T^CELLS (PCT) 

202 B-CELLS (PCT) 

203 BG-CELLS (PCT) 

204 BA-CELLS (PCT) 

205 BM-CELLS (PCT) 

206 N-CELLS (PCT) 

207 SEM LYMPH SMOOTH (PCT) 

208 SEM LYMPH ROUGH (PCT) 

209 

210 

211 6LU (MG/DL) 

212 CHOL (MG/OL) 

213 SGOT (MU/ML) 

214 SGPT (MU/ML) 

215 BUN (MG/DL) 

216 URIC ACID (MG/OL) 

217 ALK PHOS lU 

218 CA (MG/DL) 

219 MG (MG/DL) 

220 P04 (MG/DL) 

221 BILI T (MG/DL) 

222 BILI D (MG/DL) 

223 GREAT (MG PCT) 

224 CPK (MU/ML) 

225 LDH (MU/ML) 

226 OSMOL (MOSM/L) 

227 NA (MEQ/L) 

228 K (MEQ/L) 


LABELS FOR EXPERIMENT MHO 


CL (MEQ/L) 

TRIGLY (MG PCT) 
C02 (MG PCT) 
TURBIDITY (MEQ/L) 


RETIC CLASS YOUNG (PCT) 
RETIC CLASS INTER (PCT) 
RETIC CLASS MATURE (PCT) 


o 



LABELS FOR EXPERIMENT MHO 


LABELS FOR EXPERIMENT MllD 


END ONSITE PRINTOUT ON DECEMBER 
DB6-GD3«I32#TPF£(0).W(0) 


1975 AT OStS'tiS 



LABELS FOR CLINICAL/ENVIR DATA 


MAJOR MISSION ACTIVITY 
MISSION ACTIVITY #2 
MISSION ACTIVITY #3 
MISSION ACTIVITY #4 
MISSION ACTIVITY «5 
MISSION ACTIVITY #6 
MEDICAL EXPERIMENT/DTO 


ILLNESS/SYMPTON/PROBLEM 


MEDICATION AND DOSAGE 


AMOUNT OF SLEEP (HOURS) 

SLEEP CONDITION 

UPPER BODY ERGOMETRY (WATT-MINUTES) 

LOWER BODY ERGOMETRY (W ATT-MINUTES ) 

EVA METABOLIC WORK ESTIMATE (KEAL/HR) 

EVA DURATION (HOURS) 

MK. I EXERCISE (MINI-GYM) (MINUTES) 

MK. II EXERCISE (SPRING) (MINUTES) 

MK. Ill EXERCISE (EXERGYM) (MINUTES) 
TREADMILL (MINUTES) 

ISOMETRICS (MINUTES) 

WEIGHT LIFTING (MINUTES) 

CALISTHENICS (MINUTES) 

RUNNING (MINUTES) 

PADDLE BALL (MINUTES) 

TENNIS (MINUTES) 

TOTAL EXERCISE TIME-HISC. TYPE (MINUTES) 

HEIGHT (INCHES) 

HEIGTH (CM) 

WEIGHT (POUNDS) 

WEIGHT (KG) 


HIP MEASUREMENT (CM) 

WAIST (CM) 

CHEST GIRTH (INSPIRED) (CM) 


LABELS FOR CLINICAL/ENVIR DATA 


CHEST GIRTH (EXPIRED) (CM) 

NECK (CM) 

RIGHT ARM (CM) 

LEFT ARM (CM) 

RIGHT ARM VOLUME (CU CM) 

LEFT ARM VOLUME (CU CM) 

GRIP STRENGTH - RIGHT HAND (FT-LB) 
GRIP STRENGTH - LEFT HAND (FT-LB) 
CENTER OF GRAVITY MEASUREMENT (CM) 


HISTORICAL DATA 


DAILY RADIATION DOSE - SKIN (RAO) 
ACCUMULATED RADIATION - SKIN (REM) 
DAILY RADIATION DOSE - EYE (RAD) 
ACCUMULATED RADIATION - EYE (REM) 
DAILY RADIATION DOSE - BONE (RAD) , 
ACCUMULATED RADIATION - BONE (REH) 


«5 





LABELS FOR CLTNICAL/ENVIR DATA 


LABELS FOR CL INI CAL/EN VIR DATA 


115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 
15 8 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 


AVERAGE DAILY TEMPERATURE ( F) 
AVERAGE AMBIENT PRESSURE (PSIA) 
PARTIAL PRESSURE OXYGEN <PSIA) 
PARTIAL PRESSURE NITROGEN «PSIA> 
PARTIAL PRESSURE C02 (MM H6 ) 


DEW POI 
RELATIV 


172 

173 

174 

175 

176 

177 

178 

179 

180 


END ONSITE PR 
DB6-G03432+TP 


NT ( F 
E HUMI 


INTOUT 
F$(0) . 


) 

DITY (*> 


ON DECEMBER 
W( 0> 


1975 AT 08:59 :12 


(£> 

03 
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